A353822 Product_{n>=1} (1 + x^n/n!)^a(n) = exp(-x)/(1 - x).

0, 1, 2, 9, 24, 110, 720, 5985, 39200, 343224, 3628800, 41295870, 479001600, 6130959120, 87104969952, 1318070979225, 20922789888000, 354344089779680, 6402373705728000, 121882240625961816, 2432849766865689600, 51041049953430700800, 1124000727777607680000

Offset

1,3

Links

Table of n, a(n) for n=1..23.

Mathematica

nn = 23; f[x_] := Product[(1 + x^n/n!)^a[n], {n, 1, nn}]; sol = SolveAlways[0 == Series[f[x] - Exp[-x]/(1 - x), {x, 0, nn}], x]; Table[a[n], {n, 1, nn}] /. sol // Flatten

Crossrefs

Cf. A000166, A006973, A137852.

Sequence in context: A363660 A027302 A213720 * A073981 A006973 A137852

Adjacent sequences: A353819 A353820 A353821 * A353823 A353824 A353825

Keyword

nonn

Author

Ilya Gutkovskiy, May 08 2022

Status

approved