program fractii;
var a,b,x,y,i,n,r :longint;
	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 b<>0 do
                                      begin
                                           r:=a mod b;
                                           a:=b;
                                           b:=r;
                                      end;
				if a=1 then i:=i+1;
			end;
	end;
write(g,i);
close(g);
end.