|
|
A343623
|
|
E.g.f.: -log(1 - x - Sum_{k>=2} prime(k-1) * x^k / k!).
|
|
1
|
|
|
1, 3, 11, 59, 416, 3683, 39093, 484220, 6854176, 109150227, 1931303809, 37589753206, 798135918850, 18358887315769, 454779141016707, 12070296596154136, 341715021307029876, 10278722402921420619, 327369178071821161755, 11005696560250745851048, 389469699942038630639524
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = A008578(n) + (1/n) * Sum_{k=1..n-1} binomial(n,k) * A008578(n-k) * k * a(k).
|
|
MATHEMATICA
|
nmax = 21; CoefficientList[Series[-Log[1 - x - Sum[Prime[k - 1] x^k/k!, {k, 2, nmax}]], {x, 0, nmax}], x] Range[0, nmax]! // Rest
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|