var m,n,i,j:integer;
	f:text;
procedure citire;
	begin
		assign(f,'fractii.in');
		reset(f);
		read(f,n);
		close(f)
	end;
procedure calculare;
	begin
		m:=n;
		for i:=2 to n do
			for j:=1 to n do
				if (i mod j<>0) or (j mod i<>0) then inc(m)
	end;
procedure afisare;
	begin
		assign(f,'fractii.out');
		rewrite(f);
		write(f,m);
		close(f)
	end;
begin
	citire;
	calculare;
	afisare
end.