var  v:array[1..100000]of longint;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
   repeat
    r:=a mod b;
    a:= b;
    b:= r;
   until r = 0;
  cmmdc:=a;
end;
var n,k,i,j:longint;
begin
 assign(input,'pairs.in');reset(input);
 assign(output,'pairs.out');rewrite(output);
 readln(n);k:=0;
 for i:=1 to n do readln(v[i]);
 for i:=1 to n-1 do
     for j:=i+1 to n do
         if (v[i]<>v[j])and(cmmdc(v[i],v[j])=1)then inc(k);
 write(k);
 close(input);close(output);
end.