var  v:array[1..100000]of longint;
function cmmdc(a,b:longint):longint;
var i:integer;
begin
  repeat
   if a>b then dec(a,b)
          else dec(b,a)
  until a=b;
  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.