login
A242362
Plane partitions into odd parts.
0
1, 1, 2, 4, 7, 11, 20, 30, 50, 75, 121, 176, 276, 398, 604, 864, 1285, 1814, 2652, 3713, 5339, 7417, 10526, 14500, 20349, 27836, 38653, 52528, 72291, 97612, 133249, 178889, 242379, 323634, 435557, 578579, 773877, 1023074, 1360565
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
Cf. A000219.
Sequence in context: A080005 A364590 A151992 * A024501 A160393 A018173
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