OFFSET
0,3
EXAMPLE
Example for n=4:
((3,1)), ((3)(1)), ((1,1,1,1)), ((1,1,1),(1)),
((1,1),(1,1)), ((1,1),(1),(1)), ((1),(1),(1),(1)).
MATHEMATICA
<< Combinatorica`
pilings[par_List]:=Module[{tel, alles}, tel=Length[par]; alles=List/@Partitions[par[[1]]];
Do[alles=Flatten[Function[argu, (Flatten[{argu, {#1}}, 1]&)/@Select[Partitions[par[[i]]], Length[#1]<=Length[Last[argu]]&&And@@Thread[#1<=Take[Last[argu], Length[#1]]]&]]/@alles, 1], {i, 2, tel}]; alles];
Table[Tr[Count[pilings[#], q_/; FreeQ[q, _?EvenQ]]&/@Partitions[w]], {w, 24}]
CROSSREFS
KEYWORD
nonn
AUTHOR
David S. Newman, May 11 2014
EXTENSIONS
a(8)-a(24) from Wouter Meeussen
a(25)-a(38) from Vaclav Kotesovec, May 05 2018
STATUS
approved