A294494 E.g.f.: 1/Product_{k>0} (1+x^k/k!)^k.

1, -1, 0, -3, 26, -75, 324, -3535, 30988, -242025, 2245820, -26847381, 339741984, -4205748547, 57094691822, -883946426805, 14358210544304, -239959114870689, 4286519116236900, -82194727064059645, 1650577120959962440, -34495065863164195611

Offset

0,4

Links

Seiichi Manyama, Table of n, a(n) for n = 0..449

Mathematica

With[{nn=30}, CoefficientList[Series[1/Product[(1+x^k/k!)^k, {k, nn}], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 12 2018 *)

Prog

(PARI) N=66; x='x+O('x^N); Vec(serlaplace(1/prod(k=1, N, (1+x^k/k!)^k)))

Crossrefs

Cf. A292308.

Cf. A032315, A174661, A294495.

Sequence in context: A191590 A354050 A177511 * A048372 A269342 A292001

Adjacent sequences: A294491 A294492 A294493 * A294495 A294496 A294497

Keyword

sign

Author

Seiichi Manyama, Nov 01 2017

Status

approved