#include <bits/stdc++.h>
using namespace std;
typedef long long ll;

const int N=200010;
const int N1=10000010;
const ll M1=1e9+7;
const ll M2=1e9+9;
pair<ll,ll> fib[N1];
string s[200010];

ll add(ll a,ll b,ll M){
    ll t=a+b;
    return t>=M?t-M:t;
}

ll sub(ll a,ll b,ll M){
    ll t=a-b;
    return t<0?t+M:t;
}

void init(){
    fib[0]={0,0};
    fib[1]={1,1};
    for(int i=2;i<N1;i++){
        fib[i].first=add(fib[i-1].first,fib[i-2].first,M1);
        fib[i].second=add(fib[i-1].second,fib[i-2].second,M2);
    }
}

int lenfib(int n){
    return n*log10((1+sqrt(5))/2)-log10(sqrt(5));
}

void solve(){
    init();
    int n;cin>>n;
    for(int i=0;i<n;i++)cin>>s[i];
    sort(s,s+n,[&](const string& a,const string& b){
        return a.size()<b.size();
    });
    map<pair<ll,ll>,int> mp;
    ll ans=0;
    for(int i=0;i<n;i++){
        int len=s[i].size();
        int l=0,r=N1-1;
        while(r>=l){
            int m=(l+r)>>1;
            if(lenfib(m)>=len)r=m-1;
            else l=m+1;
        }
        pair<ll,ll> pi={0,0};
        for(auto c:s[i]){
            pi.first=(pi.first*10+c-'0')%M1;
            pi.second=(pi.second*10+c-'0')%M2;
        }
        for(int i=max(0,l-10);i<min(l+10,N1);i++){
            pair<ll,ll> tmp=pi;
            tmp.first=sub(fib[i].first,tmp.first,M1);
            tmp.second=sub(fib[i].second,tmp.second,M2);
            ans+=mp[tmp];
        }
        mp[pi]+=1;
    }
    cout<<ans<<"\n";
}

int main(){
    ios::sync_with_stdio(0);
    cin.tie(0);cout.tie(0);
    int n=1;
    // cin>>n;
    while(n--)solve();
    return 0;
}