OFFSET
1,1
FORMULA
E.g.f.: -log(1 - Sum_{k>=1} prime(k) * x^k / k!).
MATHEMATICA
a[n_] := a[n] = Prime[n] + (1/n) Sum[Binomial[n, k] k a[k] Prime[n - k], {k, 1, n - 1}]; Table[a[n], {n, 1, 19}]
nmax = 19; CoefficientList[Series[-Log[1 - Sum[Prime[k] x^k/k!, {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]! // Rest
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 10 2020
STATUS
approved