var
 f:text;
 n,p,q,k,a,b:longint;
 begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(f,'fractii.out');
  rewrite(f);
  for p:=1 to n do
   for q:=1 to n do
    begin
    a:=p;
    b:=q;
    while a<>b do
     if a>b then a:=a-b
     else
     b:=b-a;
    if a=1 then inc(K);
    end;
   write(f,k);
   close(f);
   end.