OFFSET
0,2
COMMENTS
"EFJ" (unordered, size, labeled) transform of primes.
LINKS
C. G. Bower, Transforms (2)
MATHEMATICA
nmax = 23; CoefficientList[Series[Product[(1 + Prime[k] x^k/k!), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 24 2024
STATUS
approved