const modulo=1048575;

var a:array[0..3] of longint;
    f,g:text;
    m,i,n:longint;

begin
 assign(f,'12perm.in'); reset(f);
 assign(g,'12perm.out'); rewrite(g);
 read(f,n);
 a[0]:=1; a[1]:=2; a[2]:=6; a[3]:=12;
 m:=n-2;
 for i:=3 to m do begin
  case (i+2) and 3 of
  1: a[0]:=(a[3]+a[1]+i+i) and modulo;
  2: a[1]:=(a[0]+a[2]+i+i) and modulo;
  3: a[2]:=(a[1]+a[3]+i+i) and modulo;
  0: a[3]:=(a[2]+a[0]+i+i) and modulo;
  end;
 end;
 if n<=4 then
  writeln(g,a[n])
 else begin
  case n and 3 of
  1: writeln(g,a[0]);
  2: writeln(g,a[1]);
  3: writeln(g,a[2]);
  0: writeln(g,a[3]);
  end;
 end;
 close(f); close(g);
end.