A327065 Expansion of Product_{k>=1} (Product_{j=1..k} (1 + x^(k*j))^(k*j)).
1, 1, 2, 5, 12, 20, 42, 75, 141, 259, 466, 799, 1427, 2443, 4169, 7049, 11863, 19605, 32518, 53184, 86579, 140018, 225380, 359739, 572864, 905903, 1426270, 2234952, 3488313, 5416403, 8383226, 12917257, 19831763, 30334937, 46245977, 70242043, 106371686
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
nmax = 40; CoefficientList[Series[Product[Product[(1+x^(k*j))^(k*j), {j, 1, Min[k, nmax/k]}], {k, 1, nmax}], {x, 0, nmax}], x]