|
|
A346791
|
|
E.g.f.: 1 / (1 + x + Sum_{k>=2} prime(k-1) * x^k / k!).
|
|
2
|
|
|
1, -1, 0, 3, -5, -17, 103, 57, -2707, 6785, 84135, -659369, -2129683, 55537445, -103722105, -4630217025, 37357780827, 334163569535, -7214177094045, -2126819153101, 1233139349668817, -8794491537166765, -184459444459530193, 3483053621920936363, 15570880115951580635
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(0) = 1; a(n) = -Sum_{k=1..n} binomial(n,k) * A008578(k) * a(n-k).
|
|
MATHEMATICA
|
nmax = 24; CoefficientList[Series[1/(1 + x + Sum[Prime[k - 1] x^k/k!, {k, 2, nmax}]), {x, 0, nmax}], x] Range[0, nmax]!
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|