var r:array[1..100] of longint;
p,a,b,i,j:integer; n,k:byte;
f1, f2:text;

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



begin
k:=0;

assign(f1, 'fractii.int');
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.