A298730 Expansion of Product_{k>=1} 1/(1 - x^(k*(k+1)/2))^(k*(k+1)/2).
1, 1, 1, 4, 4, 4, 16, 16, 16, 44, 54, 54, 126, 156, 156, 315, 435, 435, 780, 1060, 1115, 1856, 2576, 2741, 4214, 5804, 6464, 9446, 12924, 14464, 20324, 27818, 31778, 43166, 58232, 66977, 89396, 120000, 139255, 181274, 240405, 282000, 362457, 476334, 560709, 708893, 924923, 1096773, 1372597
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 48; CoefficientList[Series[Product[1/(1 - x^(k (k + 1)/2))^(k (k + 1)/2), {k, 1, nmax}], {x, 0, nmax}], x]