program pascal;
var f,g:text;
    i,j,r,a,b,n,nr:longint;
    v:array[1..100000] of longint;

 procedure cmdc;
 begin
 a:=v[i];
 b:=v[j];
 while b<>0 do
  begin
  r:=a mod b;
  a:=b;
  b:=r;
  end;
 end;

 procedure citire;
 begin
 assign(f,'pairs.in'); reset(f);
 assign(g,'pairs.out'); rewrite(g);
 readln(f,n);

 nr:=0;
 for i:=1 to n do
  begin
   readln(f,v[i]);
   for j:=i-1 downto 1 do
     if v[i]<>v[j] then
     begin
     cmdc;
     if a=1 then nr:=nr+1;
     end;
   end;
 end;

 procedure afisare;
 begin
 write(g,nr);
 close(f);
 close(g);
 end;

begin
citire;
afisare;
end.