#include <cstdio>

#define DxBG
#define FL

#define fin  "pairs.in"
#define fout "pairs.out"

const int Vmax = 1001100;
const int Nmax = 100100;

int N,MAX,v[Vmax];
int nr[Nmax];
int divnr[10];

long long cnt1;	//cate is bune
long long cnt2;	//cate au cmmdc>1

//v[i]  - cate numere se divid cu i
//nr - numerele date
//div[i] - divizorii numarului nr[i]

void readdata()
{
	int i,a;

	freopen(fin,"r",stdin);

	scanf("%d",&N);

	for (i=1;i<=N;++i)
	{
		scanf("%d",&a);
		v[a]=1;
		if ( a > MAX )
			MAX = a;
		nr[i]=a;
	}
}

inline void afla(int a)
{
	int j,bun;

	divnr[0]=0;

	for (j=2;j*j<=a;++j)
	{
		bun=0;
		while (a%j==0)
		{
			bun=1;
			a/=j;
		}	
		if (bun)
			divnr[++divnr[0]]=j;
	}

	if (a>1)
		divnr[++divnr[0]]=a;	
}

void solve()
{
	int i,j,k,nrb,tmp,bun;
	long long cnt;

//aflu fiecare numar "i" cu cate numere din "nr" se divide
	for (i=2;i<=MAX;++i)
	{
		for (j=i+i;j<Vmax;j+=i)
			if (v[j])
				++v[i];
	}
//gata

#ifdef DBG
	for (i=1;i<=MAX;++i)
		printf("%d ",v[i]);
	printf("\n");
#endif

	cnt1 = N-1;
	cnt1 = cnt1 * N;
	cnt1 = cnt1 / 2;

	cnt2 = 0;

//incep rezolvarea propriu-zisa

	for (i=1;i<=N;++i)
	{
		cnt = 0;	//numar perechi care au cmmdc( nr[i] , a ) > 1

		afla(nr[i]);

	//excludere si includere
		for (j=1;j<(1<<divnr[0]);++j)
		{
			nrb = 0;
			tmp = 1;
			for (k=0;(1<<k)<=j;++k)
				if (j&(1<<k))
				{
					++nrb;
					tmp*=divnr[k+1];
				}
			if (nrb%2!=0)
				cnt+=(v[tmp]-1);
			else
				cnt-=(v[tmp]-1);
		}
	//gata
	
		cnt2+=cnt;

#ifdef DBG
		printf("%d %d\n",i,cnt);
#endif
	}

	cnt2/=2;

	cnt1-=cnt2;

#ifdef FL
	freopen(fout,"w",stdout);
#endif

	printf("%lld\n",cnt1);
}

int main()
{
	readdata();
	solve();
	return 0;
}