program fractii;
type tab = array [1..100] of real;
var n,s,m,x,i,j:integer;
    a:tab;
    b:boolean;
    l,k:real;
    f,g:text;
begin
assign(g,'fractii.in');
assign(f,'fractii.out');
reset(g);
b:=false;
readln(g,n);
m:=0;
for i:=1 to n do begin
 for j:=1 to n do begin
  k:=i/j;
  b:=false;
  for x:=1 to m do
  if a[x]=k then b:=true;
  if b=False then begin inc(m); a[m]:=k; end;
  end;
end;
rewrite(f);
writeln(f,m);
close(f);
close(g);
end.