A170908 Numerators in Taylor series expansion of Product_{n >= 1} (1+x^n/n!).

1, 1, 1, 2, 5, 2, 41, 169, 541, 71, 8983, 44419, 20183, 802751, 445223, 52275409, 166257661, 26261353, 2160586067, 4871649347, 3667033133, 2762567051857, 10112898715063, 12453960597367, 24546527305109, 48002125894859, 5216471357244949, 159144839200310539, 3124937204888091941

Offset: 0

Author

N. J. A. Sloane, Jan 30 2010

Keywords

• nonn
• frac

Examples

			1 + x + (1/2)*x^2 + (2/3)*x^3 + (5/24)*x^4 + (2/15)*x^5 + (41/360)*x^6 + (169/5040)*x^7 + ...
		

Links

• H. Gingold, H. W. Gould, and M. E. Mays, Power product expansions, Util. Math., 34 (1988), 143-161.

Crossrefs

Cf. A170909.

Programs

Mathematica

nmax=28; Numerator[CoefficientList[Series[Product[ (1+x^n/n!),{n,nmax}],{x,0,nmax}],x]] (* Stefano Spezia, Jun 24 2024 *)

Extensions

a(28) from Stefano Spezia, Jun 24 2024