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);c:=0;
for p:=1 to n do for q:=1 to n do if (p mod q<>0) or (p/q=1) then inc(c); if p=q then dec(c);
write(g,c); close(g);
end.