program loc;
type sir=array [1..1000000] of real;
var se:sir;
    n,k,i,j,o:integer;
    s:real;
    g,f:text;
	b:boolean;
procedure pro(var b:boolean; se:sir; o:integer; s:real);
var i:integer;
begin
for i:=1 to o do
if se[i]=s then b:=true;
end;
begin
assign(g,'fractii.in');
assign(f,'fractii.out');
reset(g);
o:=1;
rewrite(f);
readln(g,n);
//readln(n);
for i:=1 to n do begin
 for j:=1 to n do begin 
  s:=i/j;
  b:=false;
  pro(b,se,o,s);
  if b=true then else begin se[o]:=s; inc(k); inc(o); end;
 end;
end;
writeln(f,k);
//writeln(k);
close(f);
close(g);
end.