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

%I #7 Oct 09 2023 17:18:40

%S 1,-1,-2,-16,-257,-6613,-243980,-12155224,-786429623,-64166829085,

%T -6449457120962,-783277824629140,-113105715390915929,

%U -19155829563735891169,-3760880464339217383124,-847344181950467763488740,-217159542960607254804746279,-62816327344923649504400271697

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

%t nmax=17; CoefficientList[Series[1/Sum[k!*(k!+1)*x^k/2,{k,0,nmax}],{x,0,nmax}],x] (* _Stefano Spezia_, Oct 09 2023 *)

%Y Cf. A113871.

%K sign

%O 0,3

%A _N. J. A. Sloane_, Feb 01 2006