program pairs;
type vector=array[1..100000] of 1..1000000;
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])or((v[i]mod 8=0)or(v[j]mod 8=0))or(v[i]mod 2=0)or(v[j]mod 2=0)or((v[i]mod 5=0)or(v[j]mod 5=0))or((v[i]mod 3=0)or(v[j]mod 3=0))or((v[i]mod 6=0)or(v[j]mod 6=0))or((v[i]mod 7=0)or(v[j]mod 7=0)) then
            else
                begin
                     a:=v[i];
                     b:=v[j];
                     repeat
                           r:=a mod b;
                           a:=b;
                           b:=r;
                     until r=0;
               if a=1 then x:=x+1;
           end;
       end;
     write(g,x);
     close(f);
     close(g);
end.