const
    nMax=50000000;

var n,i,j,x,v:longint;
    numarator,numitor:array[1..nMax] of longint;
    fractie,fr:real;

Begin
      assign(input,'fractii.in');  reset(input);
      read(input,n);
      x:=1;
      i:=1;
      repeat
       numarator[x]:=i;
       if (x mod n)=0 then inc(i);
       inc(x);
      until x>n*n;

      i:=1;
      x:=1;
      repeat

       numitor[x]:=i;
       inc(x);
       inc(i); if i>n then i:=1;

      until x>n*n;

      for i:=1 to n*n-1 do
         for j:=i+1 to n*n do
       begin
         if numarator[i]<>0 then
         begin
         fractie:=numarator[i]/numitor[i];
         fr:=numarator[j]/numitor[j];
         end;
         if fractie=fr then
          begin
           numarator[i]:=0;
           numitor[i]:=0;
          end;
        end;
      assign(output,'fractii.out'); rewrite(output);
      x:=0;
      for i:=1 to n*n do if numarator[i]<>0 then inc(x);
      write(output,x);
   {  // for i:=1 to n*n do write(numarator[i]);
      writeln;
    //  for i:=1 to n*n do write(numitor[i]);   }
    close(input);
    close(output);

End.