type vector=array [1..100] of real;
var a:vector;
nanu,alecu:text;
i,j,n,p,nr,g,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 begin
for g:=j to n - 1 do
a[j]:=a[j+1];
n:=n-1;
end;
out:=n;
writeln(alecu,out);
close(nanu);close(alecu);
end.