program fractii;
var i,j,n,s,a,b:longint;
    g,f:text;
function cmmdc(a,b:longint):longint;
var x,y:longint;
begin
x:=a;
y:=b;
while x<>y do
if x>y then
x:=x-y
else
y:=y-x;
cmmdc:=x;
end;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
for j:=1 to n do
if cmmdc(i,j)=1 then
s:=s+1;
writeln(g,s);
close(f);
close(g);
end.