program i2;
var sum, n, i, j:longint;
	outIn, outOut:text;

function cmmdc(a:longint; b:longint):longint; 
begin
	repeat
		if a > b then a := a - b;
		if b > a then b := b - a;
	until a = b;
	cmmdc := a;
end;

begin

assign(outIn, 'fractii.in');
reset(outIn);
read(outIn, n);
close(outIn);
sum := n;
for i := 2 to n do
	for j := 1 to n do
		if cmmdc(i, j) = 1 then inc(sum);

assign(outOut, 'fractii.out');
rewrite(outOut);
write(outOut, sum);
close(outOut);
end.