OFFSET
0,3
MATHEMATICA
nmax=17; CoefficientList[Series[1/Sum[k!*(k!+1)*x^k/2, {k, 0, nmax}], {x, 0, nmax}], x] (* Stefano Spezia, Oct 09 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Feb 01 2006
STATUS
approved