program fractiii;
var p,q,fractii,nr:integer;    { fractia este de tip P/Q }
    f:text;
begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,nr);
  close(f);
  p:=1;
  fractii:=1;
  while(p<=nr) do
    begin
      q:=1;
      while(q<=nr) do
        begin
        if(p mod q<>0) then fractii:=fractii+1;;
        q:=q+1;
        end;
    p:=p+1;
    end;
  assign(f,'fractii.out');
  rewrite(f);
  writeln(f,fractii);
  close(f);
end.