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]<>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.