A371310 Expansion of e.g.f. Product_{k>=1} (1 + prime(k)*x^k/k!).
1, 2, 3, 23, 47, 231, 2260, 6527, 35151, 224759, 3434124, 12476055, 79758206, 491191521, 4752819625, 105146082344, 393097093065, 2976053272527, 21569670506914, 188844207315245, 2277243901499454, 72603521472295945, 326137558352646889, 2491611720654851668
Offset: 0
Keywords
Links
- C. G. Bower, Transforms (2)
Programs
-
Mathematica
nmax = 23; CoefficientList[Series[Product[(1 + Prime[k] x^k/k!), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
Comments