A327063 Expansion of Product_{k>=1} (Product_{j=1..k} (1 + x^(k*j))^j).
1, 1, 1, 2, 4, 5, 8, 11, 15, 24, 34, 43, 63, 87, 115, 159, 217, 279, 380, 505, 657, 868, 1139, 1458, 1913, 2482, 3162, 4069, 5232, 6628, 8469, 10755, 13544, 17127, 21634, 27061, 33988, 42557, 52985, 66069, 82289, 101862, 126281, 156275, 192655, 237530, 292502
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
nmax = 50; CoefficientList[Series[Product[Product[(1+x^(k*j))^j, {j, 1, Min[k, nmax/k]}], {k, 1, nmax}], {x, 0, nmax}], x]