var a:array [1..15000] of longint;
    n,i,j,c:longint;
    f,g:text;
function cmmdc(p,b:integer):integer;
begin
if b=0 then cmmdc:=p
       else cmmdc:=cmmdc(b,p mod b);
end;
begin
assign(f,'pairs.in');
assign(g,'pairs.out');
reset(f);
rewrite(g);
readln(f,n);
c:=0;
for i:=1 to n do
    readln(f,a[i]);
for i:=1 to n-1 do
    for j:=i+1 to n do
        if (cmmdc(a[i],a[j])=1) and (a[i]<>a[j]) then
           c:=c+1;

writeln(g,c);
close(f);
close(g);
end.