ll@n,@p,@a[n],q=1,z=0;
while(q*=p,q<1d9){
	map<int,int>h;
	rep(i,n){
		z+=h[a[i]%q]++;
	}
}
wt(z);