program info;
type vector=array[1..30] of real;
var i,n,j,m:integer;    s:real; v:vector; f,g:text;
function e(v:vector; i:integer; s:real):boolean;
var j:integer;
begin
  e:=true;
  for j:=1 to i do
    if v[j]=s then
      e:=false;
end;

begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out'); rewrite(g);
for i:=1 to 30 do
 v[i]:=0;
read(f,n);
m:=0;
for i:=1 to n do
  for j:=1 to n do
     begin
        s:=i/j;
        if e(v,m,s) then
           begin
             m:=m+1;
             v[m]:=i/j;
           end;
     end;
write(g,m);
close(f);
close(g);
end.