type vector=array [1..1000000] of  real;
var a:vector;
b:vector;
nanu,alecu:text;
i,j,n,v,p,nr,out:integer;
begin
assign(nanu,'fractii.in');
assign(alecu,'fractii.out');
reset(nanu);
rewrite(alecu);
readln(nanu,nr);
p:=1; n:=0;
for i:=1 to nr do
for j:=1 to nr do begin
a[p]:=i/j;
p:=p+1 ;
n:=n+1;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] = a[j] then
a[j]:=0;v:=0;
for i:=1 to n do
if a[i]<>0 then begin
b[i]:=a[i];
v:=v+1;
end;
out:=v;
writeln(alecu,out);
close(nanu);close(alecu);
end.