var f,g:text;
    n,i,nr,j,r,a1,a2:longint;
    a:array[0..100000] of 0..1000000;
begin
  assign(f,'pairs.in'); reset(f);
  assign(g,'pairs.out'); rewrite(g);
  read(f,n);
  for i:=1 to n do
    read(f,a[i]);
  nr:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]<>a[j] then
        begin
          a1:=a[i];
          a2:=a[j];
          while a2<>0 do
            begin
              r:=a1 mod a2;
              a1:=a2;
              a2:=r;
            end;
          if a1=1 then inc(nr);
        end;
  writeln(g,nr);
  close(f); close(g);
end.