OFFSET
1,2
FORMULA
E.g.f.: exp(x) - 1 + Sum_{k>=2} prime(k-1) * (exp(x) - 1)^k / k!.
a(n) = Sum_{k=1..n} Stirling2(n,k) * A008578(k).
MATHEMATICA
nmax = 24; CoefficientList[Series[Exp[x] - 1 + Sum[Prime[k - 1] (Exp[x] - 1)^k/k!, {k, 2, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
Table[Sum[StirlingS2[n, k] If[k == 1, 1, Prime[k - 1]], {k, 1, n}], {n, 1, 24}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 07 2022
STATUS
approved