program fractii2;
var n,i,j,a,b,nr:longint;
    f,g:text;
begin
assign(f,'fractii.in'); assign(g,'fractii.out');
reset(f); rewrite(g);
read(f,n);
nr:=0;
for i:=1 to n do
 for j:=1 to n do
 begin
 a:=i;
 b:=j;
 while a<>b do
 begin
  if a>b then
   a:=a-b
  else
   b:=b-a;
 end;
 if a=1 then
  nr:=nr+1;
 end;
write(g,nr);
close(f); close(g);
end.