A090539 Total number of parts equal to 1 in all plane partitions of n.

0, 1, 4, 11, 28, 62, 137, 278, 561, 1080, 2051, 3778, 6885, 12255, 21589, 37409, 64160, 108612, 182234, 302461, 497997, 812579, 1316225, 2115608, 3378239, 5357855, 8447086, 13237631, 20632630, 31985504, 49339795, 75738099, 115731636, 176055280, 266697522

Offset

0,3

Links

Alois P. Heinz, Table of n, a(n) for n = 0..50

Mathematica

Table[Count[Flatten[planepartitions[k]], 1], {k, 17}]

Prog

(PARI) A090539(n)=A092288(n, 1) \\ M. F. Hasler, Sep 26 2018

Crossrefs

Column k=1 of A092288.

Cf. A066633, A000219, A091298.

Sequence in context: A239031 A289217 A329141 * A262050 A293628 A113478

Adjacent sequences: A090536 A090537 A090538 * A090540 A090541 A090542

Keyword

nonn

Author

Wouter Meeussen, Feb 01 2004

Extensions

a(18)-a(27) from Vaclav Kotesovec, May 05 2018

a(28)-a(34) from Alois P. Heinz, Sep 24 2018

Status

approved