Program cel;
var f,g:text;
    n,i,a,b,c,d:longint;
Begin
Assign(f,'12perm.in');Reset(f);
Assign(g,'12perm.out');Rewrite(g);
Read(f,n);
a:=2;
b:=6;
c:=12;
For i:=5 to n do
 Begin
  d:=a+c+2*(i-2);
  a:=b;
  b:=c;
  c:=d mod 1048576;
 end;

Write(g,c mod 1048476);
Close(f);
Close(g);
end.