A371552 Expansion of e.g.f. Product_{k>=1} (1 - x^k/k!)^3.

1, -3, 3, 18, -57, -138, 246, 4281, 13383, -156906, -450822, -957729, 23375886, 289894875, -179027895, -3403581357, -174968380137, -419588974650, 4439383168602, 50400469832883, 1027067921064738, 428364930324489, -18456487538087145, -1019962180000311267

Offset: 0

Author

Ilya Gutkovskiy, Mar 27 2024

Keywords

• sign

Crossrefs

Cf. A010816, A032314, A185895, A371551.

Programs

Mathematica

nmax = 23; CoefficientList[Series[Product[(1 - x^k/k!)^3, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!