A265097 a(n) = Product_{k=0..n} q(k)^k, where q(k) = partition numbers into distinct parts (A000009).

1, 1, 1, 8, 128, 31104, 127401984, 9953280000000, 16717688340480000000, 2243810146471316029440000000, 22438101464713160294400000000000000000, 16671697210628551555613518410547200000000000000000, 2163091659500402360172559530668851200000000000000000000000000000

Offset

0,4

Links

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

Mathematica

Table[Product[PartitionsQ[k]^k, {k, 0, n}], {n, 0, 12}]

Crossrefs

Cf. A058694, A152827, A259373.

Sequence in context: A349263 A188060 A104997 * A027951 A041115 A348546

Adjacent sequences: A265094 A265095 A265096 * A265098 A265099 A265100

Keyword

nonn

Author

Vaclav Kotesovec, Dec 01 2015

Status

approved