var i,j,n,a,b,s,min,max:longint;
    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-1 do
         begin
              readln(f,a);
              for j:=i+1 to n do
                  begin
                       Readln(f,b);
                       If a>=b then begin max:=a; min:=b; end
                       else begin max:=b; min:=a; end;
                       If (a<>b) and (max mod min <> 0) then Inc(S);
                  end;
         end;
     write(g,s);
     close(f); close(g);
end.