A327064 Expansion of Product_{k>=1} (Product_{j=1..k} (1 + x^(k*j))^k).
1, 1, 2, 5, 10, 18, 35, 62, 110, 197, 339, 573, 975, 1621, 2674, 4385, 7108, 11422, 18277, 28976, 45648, 71531, 111372, 172416, 265695, 407210, 621143, 943392, 1426414, 2147672, 3221271, 4812534, 7163440, 10625651, 15706871, 23141148, 33987287, 49762235
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, 1, Min[k, nmax/k]}], {k, 1, nmax}], {x, 0, nmax}], x]