type vector=array[1..15000] of integer;
var  i,n,j,k:longint;
     v:vector;
procedure citire;
var f:text;
begin
    Assign(f,'pairs.in'); reset(f);
    readln(f,n);
    for i:=1 to n do
        readln(f,v[i]);
    close(f);
end;

procedure scriere;
var f:text;
begin
     assign(f,'pairs.out'); rewrite(f);
     write(f,k); close(f);
end;

function cmmdc(i,j:longint):longint;
begin
     if j=0 then cmmdc:=i
     else cmmdc:=cmmdc(j,i mod j);
end;

begin
     citire;
     k:=0;
     for i:=1 to n-1 do
        for j:=i+1 to n do
            begin
                 if (v[i]<>v[j]) and (cmmdc(v[i],v[j])=1) then
                    Inc(k);
            end;
     scriere;
end.