program cmmdc;
var a,j,i,b,n,nr:longint;
    f:text;

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