var v:array [1..1000] of integer;
    i,j,k,s,n:integer;
    f1:boolean;
    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;
                  for k:=2 to v[i] do
                      if (v[i]mod k=0) and (v[j] mod k=0) then f1:=false;
                  if f1=true then s:=s+1;
             end;
     write(g,s);
     close(f);
     close(g);
end.