A114039 Expansion of g.f. 1/Sum_{k>=0} k!*(k!+1)*x^k/2.

1, -1, -2, -16, -257, -6613, -243980, -12155224, -786429623, -64166829085, -6449457120962, -783277824629140, -113105715390915929, -19155829563735891169, -3760880464339217383124, -847344181950467763488740, -217159542960607254804746279, -62816327344923649504400271697

Offset: 0

Author

N. J. A. Sloane, Feb 01 2006

Keywords

• sign

Crossrefs

Cf. A113871.

Programs

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 *)