A268502 Expansion of Product_{k>=1} ((1 + k*x^k) / (1 - x^k))^k.
1, 2, 8, 26, 73, 210, 558, 1460, 3663, 9090, 21846, 51690, 120140, 274480, 618656, 1374792, 3017867, 6546610, 14053312, 29852658, 62825894, 131025056, 270948160, 555811298, 1131498850, 2286780266, 4589706604, 9151298134, 18131193484, 35706460678, 69910352496
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..5000
Programs
-
Mathematica
nmax = 50; CoefficientList[Series[Product[((1+k*x^k)/(1-x^k))^k, {k, 1, nmax}], {x, 0, nmax}], x]