A242362 Plane partitions into odd parts.

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

Links

Table of n, a(n) for n=0..38.

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

Adjacent sequences: A242359 A242360 A242361 * A242363 A242364 A242365

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