var i,j,n,a,b,s:longint;
    f,g:text;

Function Cmmdc(a,b:longint):longint;
begin
    if b=0 then cmmdc:=a
    else cmmdc:=cmmdc(b,a mod b);
end;

begin
     assign(f,'pairs.in'); reset(f);
     assign(g,'pairs.out'); rewrite(g);
     Readln(f,n);
     s:=0;
     For i:=1 to n-1 do
         begin
              readln(f,a);
              for j:=i+1 to n do
                  begin
                       Readln(f,b);
                       If (a<>b) and (Cmmdc(a,b)=1) then Inc(S);
                  end;
         end;
     write(g,s);
     close(f); close(g);
end.