#include <bits/stdc++.h>
using namespace std;
#define fast ios_base::sync_with_stdio(false); cin.tie(NULL); cout.tie(NULL)
#define mofile(s) freopen(s,"r",stdin)
#define outfile(s) freopen(s,"w",stdout)
#define ll long long
#define ii pair<ll,ll>
#define iii pair<ll,ii>
#define fi first
#define se second
#define tf bool
#define ST stack
#define Q deque
#define Q queue
#define S string
#define Ma map
#define UM unormideremid_map
#define SE set
#define str(x) to_string(x)
#define all(a) (a).begin(),(a).end()
#define FOR(i,l,r,mid) for(int i=l;i<=r;i+=mid)
#define FOD(i,l,r,mid) for(int i=r;i>=l;i-=mid)
#define xuong cout<<"\n"
#define midebug(x) cout<<(x)<<" "
#define ppcnt(x) __builtin_popcountll(x)
#define parity(x) __builtin_parityll(x)
#define leamid0(x) __builtin_clzll(x)
#define LOG2 __lg(x)
#define tr0(x) __builtin_ctzll(x)
#define fiset(x) __builtin_ffsll(x)
#define MASK(k) (1LL<<(k))
#define BIT(x,k) ((x)>>(k)&1)
#define pb push_back
#define tron(x) setprecision(x)
#define het return 0
#define base_ 1000000000
template<typename... T>
void in(T&... args) { ((cin >> args), ...); }
template<class X, class Y>
bool maximize(X &x, const Y &y){return (x < y) ? x = y, 1 : 0;}
template<class X, class Y>
bool minimize(X &x, const Y &y){return (x > y) ? x = y, 1 : 0;}
const int maxn=1e6+5;
const ll tle=2e8;
const ll INF=1e9+9;
const int base=31;
string bcc="abcmidefghijklmnopqrstuvwxyz";
int midx[]={-1,0,1,0};
int midy[]={0,1,0,-1};
bool sang[10000005];
ll pref[1005][1005],mt[1005][1005];
void sieve(){
for(int i=1;i<=10000000;++i) sang[i]=1;
sang[0]=sang[1]=0;
for(int i=2;i*i<=10000000;++i){
if(sang[i]){
for(int j=i*i;j<=10000000;j+=i) sang[j]=0;
}
}
}
void lis(){
vector<int>t;
vector<int>a;
int n; cin>>n;
for(int i=1;i<=n;++i){
int ai; cin>>ai;
a.pb(ai);
}
for(int x:a){
auto it=lower_bound(all(t),x);
if(it==t.end()) t.pb(x);
else *it=x;
}
}
void pfs2mid(){
int n,m,k; cin>>n>>k; m=n;
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) cin>>mt[i][j];
}
for(int i=1;i<=n;++i){
for(int j=1;j<=m;++j) pref[i][j]=mt[i][j]+pref[i-1][j]+pref[i][j-1]-pref[i-1][j-1];
}
}
ll qu2mid(int x1,int y1,int x2,int y2){
return pref[x2][y2]-pref[x1-1][y2]-pref[x2][y1-1]+pref[x1-1][y1-1];
}
void open(){
if(fopen("mideptrai.INP","r")){
mofile("mideptrai.INP");
outfile("mideptrai.OUT");
}
}
const int M=1000005;
int lp[M],c[M];
vector<int> pr;
void sie(){
for(int i=2;i<M;++i){
if(!lp[i]){
lp[i]=i;
pr.pb(i);
}
for(int j=0;j<pr.size() && pr[j]*i<M;++j){
lp[pr[j]*i]=pr[j];
if(pr[j]==lp[i]) break;
}
}
}
int main(){
fast;
sie();
int n; cin>>n;
ll ans=0;
for(int i=1;i<=n;++i){
int v; cin>>v;
int y=1;
while(v>1){
int p=lp[v],cnt=0;
while(v%p==0){
v/=p;
++cnt;
}
if(cnt%2) y*=p;
}
ans+=c[y];
++c[y];
}
cout<<ans<<"\n";
het;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZmFzdCBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKGZhbHNlKTsgY2luLnRpZShOVUxMKTsgY291dC50aWUoTlVMTCkKI2RlZmluZSBtb2ZpbGUocykgZnJlb3BlbihzLCJyIixzdGRpbikKI2RlZmluZSBvdXRmaWxlKHMpIGZyZW9wZW4ocywidyIsc3Rkb3V0KQojZGVmaW5lIGxsIGxvbmcgbG9uZwojZGVmaW5lIGlpIHBhaXI8bGwsbGw+CiNkZWZpbmUgaWlpIHBhaXI8bGwsaWk+CiNkZWZpbmUgZmkgZmlyc3QKI2RlZmluZSBzZSBzZWNvbmQKI2RlZmluZSB0ZiBib29sCiNkZWZpbmUgU1Qgc3RhY2sKI2RlZmluZSBRIGRlcXVlCiNkZWZpbmUgUSBxdWV1ZQojZGVmaW5lIFMgc3RyaW5nCiNkZWZpbmUgTWEgbWFwCiNkZWZpbmUgVU0gdW5vcm1pZGVyZW1pZF9tYXAKI2RlZmluZSBTRSBzZXQKI2RlZmluZSBzdHIoeCkgdG9fc3RyaW5nKHgpCiNkZWZpbmUgYWxsKGEpIChhKS5iZWdpbigpLChhKS5lbmQoKQojZGVmaW5lIEZPUihpLGwscixtaWQpIGZvcihpbnQgaT1sO2k8PXI7aSs9bWlkKQojZGVmaW5lIEZPRChpLGwscixtaWQpIGZvcihpbnQgaT1yO2k+PWw7aS09bWlkKQojZGVmaW5lIHh1b25nIGNvdXQ8PCJcbiIKI2RlZmluZSBtaWRlYnVnKHgpIGNvdXQ8PCh4KTw8IiAiCiNkZWZpbmUgcHBjbnQoeCkgX19idWlsdGluX3BvcGNvdW50bGwoeCkKI2RlZmluZSBwYXJpdHkoeCkgX19idWlsdGluX3Bhcml0eWxsKHgpCiNkZWZpbmUgbGVhbWlkMCh4KSBfX2J1aWx0aW5fY2x6bGwoeCkKI2RlZmluZSBMT0cyIF9fbGcoeCkKI2RlZmluZSB0cjAoeCkgX19idWlsdGluX2N0emxsKHgpCiNkZWZpbmUgZmlzZXQoeCkgX19idWlsdGluX2Zmc2xsKHgpCiNkZWZpbmUgTUFTSyhrKSAoMUxMPDwoaykpCiNkZWZpbmUgQklUKHgsaykgKCh4KT4+KGspJjEpCiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgdHJvbih4KSBzZXRwcmVjaXNpb24oeCkKI2RlZmluZSBoZXQgcmV0dXJuIDAKI2RlZmluZSBiYXNlXyAxMDAwMDAwMDAwCnRlbXBsYXRlPHR5cGVuYW1lLi4uIFQ+CnZvaWQgaW4oVCYuLi4gYXJncykgeyAoKGNpbiA+PiBhcmdzKSwgLi4uKTsgfQp0ZW1wbGF0ZTxjbGFzcyBYLCBjbGFzcyBZPgogICAgYm9vbCBtYXhpbWl6ZShYICZ4LCBjb25zdCBZICZ5KXtyZXR1cm4gKHggPCB5KSA/IHggPSB5LCAxIDogMDt9CnRlbXBsYXRlPGNsYXNzIFgsIGNsYXNzIFk+CiAgICBib29sIG1pbmltaXplKFggJngsIGNvbnN0IFkgJnkpe3JldHVybiAoeCA+IHkpID8geCA9IHksIDEgOiAwO30KY29uc3QgaW50IG1heG49MWU2KzU7CmNvbnN0IGxsIHRsZT0yZTg7CmNvbnN0IGxsIElORj0xZTkrOTsKY29uc3QgaW50IGJhc2U9MzE7CnN0cmluZyBiY2M9ImFiY21pZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXoiOwppbnQgbWlkeFtdPXstMSwwLDEsMH07CmludCBtaWR5W109ezAsMSwwLC0xfTsKYm9vbCBzYW5nWzEwMDAwMDA1XTsKbGwgcHJlZlsxMDA1XVsxMDA1XSxtdFsxMDA1XVsxMDA1XTsKdm9pZCBzaWV2ZSgpewogICAgZm9yKGludCBpPTE7aTw9MTAwMDAwMDA7KytpKSBzYW5nW2ldPTE7CiAgICBzYW5nWzBdPXNhbmdbMV09MDsKICAgIGZvcihpbnQgaT0yO2kqaTw9MTAwMDAwMDA7KytpKXsKICAgICAgICBpZihzYW5nW2ldKXsKICAgICAgICAgICAgZm9yKGludCBqPWkqaTtqPD0xMDAwMDAwMDtqKz1pKSBzYW5nW2pdPTA7CiAgICAgICAgfQogICAgfQp9CnZvaWQgbGlzKCl7CiAgICB2ZWN0b3I8aW50PnQ7CiAgICB2ZWN0b3I8aW50PmE7CiAgICBpbnQgbjsgY2luPj5uOwogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgIGludCBhaTsgY2luPj5haTsKICAgICAgICBhLnBiKGFpKTsKICAgIH0KICAgIGZvcihpbnQgeDphKXsKICAgICAgICBhdXRvIGl0PWxvd2VyX2JvdW5kKGFsbCh0KSx4KTsKICAgICAgICBpZihpdD09dC5lbmQoKSkgdC5wYih4KTsKICAgICAgICBlbHNlICppdD14OwogICAgfQp9CnZvaWQgcGZzMm1pZCgpewogICAgaW50IG4sbSxrOyBjaW4+Pm4+Pms7IG09bjsKICAgIGZvcihpbnQgaT0xO2k8PW47KytpKXsKICAgICAgICBmb3IoaW50IGo9MTtqPD1tOysraikgY2luPj5tdFtpXVtqXTsKICAgIH0KICAgIGZvcihpbnQgaT0xO2k8PW47KytpKXsKICAgICAgICBmb3IoaW50IGo9MTtqPD1tOysraikgcHJlZltpXVtqXT1tdFtpXVtqXStwcmVmW2ktMV1bal0rcHJlZltpXVtqLTFdLXByZWZbaS0xXVtqLTFdOwogICAgfQp9CmxsIHF1Mm1pZChpbnQgeDEsaW50IHkxLGludCB4MixpbnQgeTIpewogICAgcmV0dXJuIHByZWZbeDJdW3kyXS1wcmVmW3gxLTFdW3kyXS1wcmVmW3gyXVt5MS0xXStwcmVmW3gxLTFdW3kxLTFdOwp9CnZvaWQgb3BlbigpewogICAgaWYoZm9wZW4oIm1pZGVwdHJhaS5JTlAiLCJyIikpewogICAgICAgIG1vZmlsZSgibWlkZXB0cmFpLklOUCIpOwogICAgICAgIG91dGZpbGUoIm1pZGVwdHJhaS5PVVQiKTsKICAgIH0KfQpjb25zdCBpbnQgTT0xMDAwMDA1OwppbnQgbHBbTV0sY1tNXTsKdmVjdG9yPGludD4gcHI7CnZvaWQgc2llKCl7CiAgICBmb3IoaW50IGk9MjtpPE07KytpKXsKICAgICAgICBpZighbHBbaV0pewogICAgICAgICAgICBscFtpXT1pOwogICAgICAgICAgICBwci5wYihpKTsKICAgICAgICB9CiAgICAgICAgZm9yKGludCBqPTA7ajxwci5zaXplKCkgJiYgcHJbal0qaTxNOysrail7CiAgICAgICAgICAgIGxwW3ByW2pdKmldPXByW2pdOwogICAgICAgICAgICBpZihwcltqXT09bHBbaV0pIGJyZWFrOwogICAgICAgIH0KICAgIH0KfQppbnQgbWFpbigpewogICAgZmFzdDsKICAgIHNpZSgpOwogICAgaW50IG47IGNpbj4+bjsKICAgIGxsIGFucz0wOwogICAgZm9yKGludCBpPTE7aTw9bjsrK2kpewogICAgICAgIGludCB2OyBjaW4+PnY7CiAgICAgICAgaW50IHk9MTsKICAgICAgICB3aGlsZSh2PjEpewogICAgICAgICAgICBpbnQgcD1scFt2XSxjbnQ9MDsKICAgICAgICAgICAgd2hpbGUodiVwPT0wKXsKICAgICAgICAgICAgICAgIHYvPXA7CiAgICAgICAgICAgICAgICArK2NudDsKICAgICAgICAgICAgfQogICAgICAgICAgICBpZihjbnQlMikgeSo9cDsKICAgICAgICB9CiAgICAgICAgYW5zKz1jW3ldOwogICAgICAgICsrY1t5XTsKICAgIH0KICAgIGNvdXQ8PGFuczw8IlxuIjsKICAgIGhldDsKfQ==