program fractii;
var a,b,x,y,i,n :integer;
	f,g:text;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,n);
close(f);
i:=0;
for x:=1 to n do
	begin
		for y:=1 to n do
			begin
				a:=x;
                                b:=y;
				while a<>b do
					begin
						if a>b then a:=a-b	
						else b:=b-a;

					end;
				if b=1 then i:=i+1;
			end;
	end;
write(g,i);
close(g);
end.