program fractii;
type vector=array[1..100] of real;
var a:vector;
		i,j,n,x,km:integer;
		f,g:text;
		aux,min:real;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out'); rewrite(g);
read(f,n);
x:=0;
for i:=1 to n do
	for j:=1 to n do
		begin
		x:=x+1;
		a[x]:=i/j;
		end;
for i:=1 to x-1 do
	begin
		min:=a[i];
		km:=i;
		for j:=i+1 to x do
			if a[j]<=min then
				begin
				min:=a[j];
				km:=j;
				end;
		aux:=a[km];
		a[km]:=a[i];
		a[i]:=aux;
	end;
km:=0;
for i:=1 to x do
	if a[i]<>a[i-1] then km:=km+1;
write(g,km);
close(f); close(g);
end.