var    n, i, j, k : longint;  
ti, ti1, ti2, ti3 :longint;
f :text;
begin
assign  (f, '12perm.in');
reset   (f);
readln  (f,n);
close   (f);
 
assign  (f, '12perm.out');
rewrite  (f);
//pt i = 4
ti1 := 12; ti2 := 6; ti3 :=2;
 
if n=1 then ti := 1;
if n=2 then ti := 2;
if n=3 then ti := 6;
if n=4 then ti := 12;
 
for i:=5 to n do
    begin
    ti := (ti1 + ti3 + ((i-2) shl 1)) and 1048575;
    ti3 := ti2; ti2 := ti1; ti1 := ti;
    end;
 
writeln (f, ti);
close   (f);
end.