A327066 Expansion of Product_{k>=1} (Product_{j=1..k} 1/(1 - x^(k*j))^j).

1, 1, 2, 3, 7, 9, 17, 23, 41, 58, 93, 127, 205, 281, 423, 583, 869, 1180, 1716, 2322, 3317, 4479, 6282, 8406, 11696, 15589, 21343, 28325, 38480, 50756, 68307, 89688, 119725, 156586, 207449, 269921, 355530, 460804, 602816, 778281, 1012956, 1302481, 1686418

Offset

0,3

Links

Vaclav Kotesovec, Table of n, a(n) for n = 0..10000

Mathematica

nmax = 50; CoefficientList[Series[Product[Product[1/(1-x^(k*j))^j, {j, 1, Min[k, nmax/k]}], {k, 1, nmax}], {x, 0, nmax}], x]

Crossrefs

Cf. A000294, A061256, A182269, A279216, A280540, A327063, A327067, A327068.

Sequence in context: A347268 A360251 A140189 * A165803 A327779 A291740

Adjacent sequences: A327063 A327064 A327065 * A327067 A327068 A327069

Keyword

nonn

Author

Vaclav Kotesovec, Aug 19 2019

Status

approved