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