#include <fstream>

#define maxn 100001
#define maxv 1000001

using namespace std;

ifstream fin("pairs.in");
ofstream fout("pairs.out");

bool sieve[maxv],v[maxv];
int p[maxn],fac[maxv],nr[maxv],mark[maxv];
int t,tt,n,x,maxval;
long long s,prod;

void erathostenes (int n)
{
    for (int i=2; i<=n; ++i)
    {
        int ok=0;
        if (!sieve[i])
        {
            for (int j=i; j<=n; j+=i)
            {
                sieve[j] = 1;
                nr[j]++;
                ok |= v[j];
            }

            if (ok)
            {
                p[++t] = i;
            }
        }
    }
}

void back (int k)
{
    for (int i=k; i<=t; ++i)
    {
        prod *= p[i];
        if (prod > maxval)
        {
            prod /= p[i];
            break;
        }
        back (i+1);
        prod /= p[i];
    }

    if (prod > 1)
    {
        fac[++tt] = prod;
    }
}

int main()
{
    fin>>n;

    for (int i=1; i<=n; ++i)
    {
        fin>>x;
        v[x]=1;

        maxval = max (x,maxval);
    }

    erathostenes (maxval);

    prod = 1;

    back (1);

    s=0;

    for (int i=1; i<=tt; ++i)
    {
        for (int j=fac[i]; j<=maxval; j+=fac[i])
        {
            if (v[j]) mark[fac[i]]++;
        }
    }

    for (int i=1; i<=maxval; ++i)
    {
        if (nr[i]%2)
        {
            s += (1LL*mark[i]*(mark[i]-1)/2);
        }
        else
        {
            s -= (1LL*mark[i]*(mark[i]-1)/2);
        }
    }


    fout<<1LL*n*(n-1)/2-s<<" ";
}