OFFSET
1,4
FORMULA
E.g.f.: log(1 + x) + Sum_{k>=2} prime(k-1) * log(1 + x)^k / k!.
a(n) = Sum_{k=1..n} Stirling1(n,k) * A008578(k).
MATHEMATICA
nmax = 23; CoefficientList[Series[Log[1 + x] + Sum[Prime[k - 1] Log[1 + x]^k/k!, {k, 2, nmax}], {x, 0, nmax}], x] Range[0, nmax]! // Rest
Table[Sum[StirlingS1[n, k] If[k == 1, 1, Prime[k - 1]], {k, 1, n}], {n, 1, 23}]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, May 13 2022
STATUS
approved