#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

char*mmap();

#define rd_skip() while(*rp++>=48)
#define rd(v) long v=0;{long _c;while(_c=*rp++-48,_c>=0)v=v*10+_c;}
#define wt(v) {long _z=v;do*--wp=_z%10+48;while(_z/=10);}

#define SIEVE_N 1000000
unsigned sieve[SIEVE_N/2+1][2];
void mksieve(){
	for(long i=3;i*i<SIEVE_N;i+=2){
		if(sieve[i>>1][0]==0){
			long k=i;
			for(long j=i*i>>1;j<SIEVE_N/2;j+=i){
				sieve[j][0]=i;
				sieve[j][1]=k;
				k+=2;
			}
		}
	}
}

static inline
unsigned long splitmix64(unsigned long x) {
	x += 0x9e3779b97f4a7c15;
	x = (x ^ (x >> 30)) * 0xbf58476d1ce4e5b9;
	x = (x ^ (x >> 27)) * 0x94d049bb133111eb;
	return x ^ (x >> 31);
}

#define HH_BITS 19
#define HH_LEN (1<<HH_BITS)
#define HH_MASK (HH_LEN-1)
unsigned long hh[HH_LEN];
int c[HH_LEN];

long f1(){
	char*rp=mmap(0l,1l<<25,1,2,0,0ll);
	rd_skip();
	long z=0;
	unsigned long h=1;
	{
		unsigned long h2=h&0x3ffff;
		hh[h2]=h;
		z+=c[h2]++;
	}
	while(*rp){
		rd(a);
		while((a&3)==0){
			a>>=2;
		}
		if((a&1)==0){
			h^=splitmix64(2);
			a>>=1;
		}
		while(a>1){
			h^=splitmix64(sieve[a>>1][0]?:a);
			a=sieve[a>>1][1];
		}
		unsigned long h2=h&HH_MASK;
		while(hh[h2]!=0&&hh[h2]!=h){
			h2=h2+1&HH_MASK;
		}
		hh[h2]=h;
		z+=c[h2]++;
	}
	return z;
}

void f2(long z){
	char wbuf[64],*wp=wbuf+sizeof wbuf;
	wt(z);
	write(1,wp,wbuf+sizeof wbuf-wp);
	_exit(0);
}

main(){
	mksieve();
	f2(f1());
}