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