program pairs;
type vector=array[1..100000] of longint ;
var v:vector;
    i,a,b,r,n,x,j:longint;
    f,g:text;
begin
     assign(f,'pairs.in');
     assign(g,'pairs.out');
     rewrite(g);
     reset(f);
     read(f,n);
     for i:= 1 to n do
         read(f,v[i]);
     x:=0;
     for i:=1 to n do
       for j:=i+1 to n do
       begin
            if (v[i] mod 2=0) and (v[j] mod 2=0) then
            else
                if (v[i]<>v[j]) then
                begin
                     a:=v[i];
                     b:=v[j];
                     repeat
                           r:=a mod b;
                           a:=b;
                           b:=r;
                     until b=0;
               if a=1 then x:=x+1;
           end;
       end;
     write(g,x);
     close(f);
     close(g);
end.