var f,g:text;
    p,q,n,c:longint;
begin
assign(f, 'fractii.in');
assign(g, 'fractii.out');
reset(f); rewrite(g);
read(f,n); close(f);
for p:=1 to n do for q:=1 to n do if (p mod q<>0) then inc(c) end.end.
write(g,c); close(g);
end.