var m:array[1..100000] of longint;
f:text; i,j,n,nr:longint;
buf:array[1..100000] of byte;
function cmmdc(a,b:longint):longint;
begin
if b=0 then cmmdc:=a
   else cmmdc:=cmmdc(b,a mod b);
end;
begin
assign(f,'pairs.in');
settextbuf(f,buf,100000);
reset(f);
readln(f,n);
nr:=0;
for i:=1 to n do read(f,m[i]);
close(f);
for i:=1 to n-1 do
    for j:=i+1 to n do
        if (m[i]<>m[j]) and (cmmdc(m[i],m[j])=1) then
           inc(nr);
assign(f,'pairs.out');rewrite(f);
writeln(f,n);
close(f);
end.