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

1, 1, 3, 6, 15, 26, 57, 101, 202, 358, 670, 1165, 2113, 3614, 6326, 10691, 18275, 30408, 50969, 83716, 137943, 223883, 363547, 583369, 935524, 1485673, 2355496, 3705275, 5815497, 9066696, 14100325, 21802824, 33622951, 51592978, 78949673, 120278899, 182742752

Offset: 0

Author

Vaclav Kotesovec, Aug 19 2019

Keywords

• nonn

Links

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

Crossrefs

Cf. A000294, A061256, A182269, A279216, A280540, A327064, A327066, A327068.

Programs

Mathematica

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