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,3

Links

Table of n, a(n) for n=0..17.

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

Cf. A113871.

Sequence in context: A090727 A108242 A140307 * A090305 A358145 A246739

Adjacent sequences: A114036 A114037 A114038 * A114040 A114041 A114042

Keyword

sign

Author

N. J. A. Sloane, Feb 01 2006

Status

approved