program fractii;
var n,k,i,j,a,b:integer;
f,g:text;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);

read(f,n);

for i:= 1 to n do
for j:=1 to n do  begin
  a:=i;
  b:=j;
  while a<>b do
  if a>b then
  a:=a-b
  else
  b:=b-a;
  if b=1 then inc(k);
   end;

 write(g,k);
 close(f);
 close(g);
 end.