program poj1012;
const
  a:array[1..14]of longint=(2,7,5,30,169,441,1872,7632,1740,93313,459901,1358657,2504881,13482720);
var
  i,j,k:longint;
begin
  readln(k);
  while k<>0 do
  begin
    writeln(a[k]);
    readln(k);
  end;
end.