var v:array [1..1000] of integer;
    i,j,k,s,n:integer;
    f1:boolean;
    x,y:integer;
    f,g:text;
begin
     assign(f,'pairs.in');
     reset(f);
     assign(g,'pairs.out');
     rewrite(g);
     readln(f,n);
     s:=0;
     for i:=1 to n do readln(f,v[i]);
     for i:=1 to n-1 do
         for j:=i+1 to n do
             begin
                  f1:=true;
                  if v[i]>v[j] then begin x:=v[i]; y:=v[j]; end else begin x:=v[j]; y:=v[i]; end;
                  for k:=2 to y do
                      if (x mod k=0) and (y mod k=0) then f1:=false;
                  if f1=true then s:=s+1;
             end;
     write(g,s);
     close(f);
     close(g);
end.