var
	f:text;
	i,j,n,s:longint;
Function cmmmdc(a,b:longint):longint;
var
   r:longint;
begin
        repeat
                r:=a mod b;
                a:=b;
                b:=r;
        until r=0;
		cmmmdc:=a;
end;
begin
                s:=0;
		assign(f,'fractii.in');
		reset(f);
		read(f,n);
		for i:=1 to n do
			for j:=1 to n do
				if cmmmdc(i,j)=1 then s:=s+1;
		close(f);
		assign(f,'fractii.out');
		rewrite(f);
		write(f,s);
		close(f);
end.