program fractie;
var a:array[1..10000] of real;
n,i,j,nr,k:longint;
f,g:text;
found:boolean;
begin
  assign(f,'fractii.in'); assign(g,'fractii.out');
  reset(f); rewrite(g);
  read(f,n);
  for i:=1 to n do
  for j:=1 to n do
  begin
    found:=false;
    for k:=1 to nr do
      if i/j=a[k] then begin found:=true; break; end;
    if not found then begin nr:=nr+1; a[nr]:=i/j; end;
  end;
  writeln(g,nr);
  close(g); close(f);
end.