const k=10000;
type vector = array [1..k] of longint;
var n,s:longint;
    i,j:integer;
    v:vector;
    f,g:text;
function prim(a,b : integer):integer;
begin
     if b=0 then prim:=a
     else prim:=prim(b,a mod b);
end;

Begin
     Assign(f,'paris.in'); reset(f);
     Assign(g,'paris.out'); rewrite(g);
     readln(f,n);   s:=0;
     For i:=1 to n do
         readln(f,v[i]);
     For i:=1 to n-1 do
         For j:=i+1 to n do
             If (v[i]<>v[j]) and (prim(v[i],v[j])=1) then Inc(s);
     Write(g,s); Close(f); Close(g);
end.