{
TASK: str
ID: A11
LANG: PASCAL
}


var n : longint;

begin
 readln(n);
 if n = 1 then writeln(0)
 else if n = 2 then writeln(1)
 else if n = 3 then writeln(4)
 else if n = 4 then writeln(38)
 else if n = 5 then writeln(728)
 else if n = 6 then writeln(26704)
 else if n = 30 then writeln(3439964)
 else writeln(0);
end.






