ll@n,@p,m=0,z=0,w[32];
if(1){
	ll v=1;
	while(v*=p,v<1d9){
		w[m++]=v;
	}
}
map<ll,ll>amap[32];
rep(n){
	ll@a;
	rep(j,m){
		z+=amap[j][a%w[j]]++;
	}
}
wt(z);