Program Pairs;

type multime=array[1..10000] of longint;

var m:multime;
    ok,ok2:boolean;
    i,ii,a,b,c,r,n:longint;
    f,g:text;

begin
 assign(f,'pairs.in');
 reset(f);
 read(f,n);
 For i:=1 to n do
  read(f,m[i]);
  c:=0;
 For i:=1 to n do
 For ii:=i+1 to n do
   begin
   ok:=true;
 if m[i]=m[ii] then ok:=false;
  a:=m[i];
  b:=m[ii];
   Repeat
    r:=a mod b;
    a:=b;
    b:=r;
   Until b=0;
    if a=1 then
    inc(c);
    end;

 assign(g,'pairs.out');
 rewrite(g);
 write(g,c);
 close(g);
 close(f);
 end.