A331337 L.g.f.: log(Sum_{k>=0} k! * x^(k*(k + 1)/2) / Product_{j=1..k} (1 - x^j)).
1, 1, 7, 1, 11, 25, 15, 17, -11, 241, -87, 217, -467, 645, 707, -159, 35, -1451, 4067, -9679, 17661, -19755, 42413, -55615, 31061, -59799, 28231, 147841, -230549, 473185, -1013017, 1656385, -2771619, 3637865, -4581335, 6366313, -5062635, -1059971, 8699659, -22821903
Offset: 1
Keywords
Programs
-
Mathematica
nmax = 40; CoefficientList[Series[Log[Sum[k! x^(k (k + 1)/2)/Product[1 - x^j, {j, 1, k}], {k, 0, nmax}]], {x, 0, nmax}], x] Range[0, nmax] // Rest