#include<fstream.h>   
ifstream f1 ("pairs.in");   
ofstream f2 ("pairs.out");   
int apar[1000001],calc[1000001],max=-1000001;   
void calc_prim()   
{   
    long long i,j;   
    calc[1]=-1;   
    for(i=2;i<=max;i++)   
    if(calc[i]==0)   
    for(j=i;j<=max;j+=i)   
    if(calc[j]!=-1)   
    {   
      calc[j]++;   
      if((j/i)%i==0) calc[j]=-1;   
    }   
}   
int main()   
{   
    long long i,j,div,n,k,nr=0;   
    f1>>n;   
    for(i=1;i<=n;i++)   
    {   
     f1>>k;   
     if(k>max)   
     max=k;   
     apar[k]=1;   
    }   
    calc_prim();   
    for(i=2;i<=max;i++)   
    {   
      div=0;   
      if(calc[i]<=0) continue;   
       else for(j=i;j<=max;j=j+i) if(apar[j]) div++;   
      if(calc[i]%2==1) nr+=div*(div-1)/2;   
       else nr-=div*(div-1)/2;   
  
    }   
    nr=n*(n-1)/2-nr;   
    f2<<nr;   
    return 0;   
}