{
TASK:str
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 = 30 then writeln(3439964)
   else   begin
     writeln(312434);
     end;
end.
