var i,j,n,k,d:longint;
    f,g:text;
begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);
 close(f);
 assign(g,'fractii.out');
 rewrite(g);
 k:=0;
 if (n>=1)and(n<=1000000) then
  for i :=1 to n do
   for j:=1 to n do
    if (j<>1)and(i<>1)and((i mod j=0)or(j mod i=0)) then inc(d)
     else inc(k);
 write(g,k);
 close(g);
end.