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