Program fractii;
var
  a,i,j,n,b,r,x:longint;
  f1,f2:text;
Begin
assign(f1,'fractii.in');
reset(f1);
assign(f2,'fractii.out');
rewrite(f2);
read(f1,n);
x:=-1;
for i:=1 to n do
for j:=i to n do
if (i mod j<>0) or (j mod i<>0) or not((i mod 2=0)and(j mod 2=0)) then
begin
a:=i;
b:=j;
repeat
r:=a mod b;
a:=b;
b:=r;
until b=0;
if a=1 then x:=x+1;
end;
x:=2*x+1;
write (g,x);
close (f);
close (g)
end.