// pairs - preoni 2008 - runda 1 - clasa 11-12

#include<stdio.h>
#include<time.h>

#define input "pairs.in"
#define output "pairs.out"

#define dim 1001

int cmmdc(long long unsigned x, long long unsigned y);

long long unsigned n, a[dim], k;

int main()
{
	FILE *in, *out;

	in = fopen (input, "r");
	out = fopen (output, "w");

	long long unsigned i, j;

	fscanf(in, "%lld", &n);

	for(i=1; i<=n; ++i)

		fscanf(in, "%lld", &a[i]);

	for(i=1; i<n; ++i)

		for(j=i+1;j<=n; ++j)

			if(a[i]!=a[j])

				if(cmmdc(a[i], a[j]))

					++k;

	fprintf(out, "%lld", k);



	return 0;

}

int cmmdc(long long unsigned x, long long unsigned y)
{

	while(x!=y)
	{
		if(x>y)

			x-=y;

		else

			y-=x;
	}

	if(x==1)

		return 1;

	return 0;

}