program par;
var f:text;
    i,n,j,x,y,nr,r:longint;
    a:array[1..100000] of longint;
begin
  assign(f,'pairs.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do readln(f,a[i]);
  close(f);
  assign(f,'pairs.out');
  rewrite(f);
  nr:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
    if (a[i] mod 2<>0)or(a[j] mod 2<>0) then
      begin
        x:=a[i];
        y:=a[j];
        r:=x mod y;
        while r<>0 do
        begin
          x:=y;
          y:=r;
          r:=x mod y
        end;
        if y=1 then nr:=nr+1
      end;
  write(f,nr);
  close(f);
end.