var n,k,a,b:word; 
f1, f2:text;y:longint;

function cmmdc(a,b:longint):longint;
begin
if a=0 then cmmdc:=b else cmmdc:=cmmdc(b mod a, a);
end;

begin

assign(f1, 'fractii.in');
reset(f1);
readln(f1,n);
assign(f2, 'fractii.out');
rewrite(f2);
for a:=1 to n do
begin
for b:=1 to n do 
if cmmdc(a,b)=1 then inc(k);
end;
writeln(f2, k);
close(f2);
end.