var v:array[1..10000] of 1..1000000;
    n,i,j:1..100000;
    k,a,b,r:longint;
    f:text;
begin
  assign(f,'pairs.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do
    readln(f,v[i]);
  close(f);
  k:=0; r:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      begin
        a:=v[i]; b:=v[j];
        repeat
          r:=a mod b;
          a:=b;
          b:=r;
        until r=0;
        if a=1 then inc(k);
      end;
  assign(f,'pairs.out');
  rewrite(f);
  write(f,k);
  close(f);
end.