A270662 E.g.f.: Product_{k>=1} (1 + sin(x^k)).
1, 1, 2, 11, 48, 341, 2640, 23561, 228816, 2674153, 32749200, 440019469, 6504919080, 102077649805, 1724124159576, 31359633592769, 596774321099040, 12048020039472209, 259300490127149664, 5798531237450331797, 136619813565630980280, 3380131718416134261301
Offset: 0
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 0..440
Programs
-
Mathematica
nmax = 25; Range[0, nmax]! * CoefficientList[Series[Product[1+Sin[x^k], {k, 1, nmax}], {x, 0, nmax}], x]