program kaka;
var i,n,x,p,q:0..100000000;
var a:array[1..10000,1..2] of 1..10000;
f,g:text;ok:boolean;
begin
assign(f,'fractii.in'); reset(f);
read(f,n); close(f);   x:=0;
for p:=1 to n do
 for q:=1 to n do
 begin
  ok:=true;
  for i:=1 to x do if p/q=a[i,1]/a[i,2] then ok:=false;
  if ok then begin inc(x); a[x,1]:=p; a[x,2]:=q; end;
 end;
assign(g,'fractii.out'); rewrite(g);
writeln(g,x); close(g);
end.