A346792 G.f.: 1 / (1 + x + Sum_{k>=2} prime(k-1) * x^k).

1, -1, -1, 0, 0, 1, 0, 3, 1, -1, -4, -10, 3, 0, 9, 19, 9, 2, -44, -27, -40, -3, 95, 75, 156, -36, -181, -274, -349, 81, 205, 982, 832, 35, -596, -2587, -1803, -1259, 2118, 5876, 5365, 4922, -6811, -12175, -17181, -12932, 14144, 28575, 53548, 27663, -19181

Offset

0,8

Links

Table of n, a(n) for n=0..50.

Formula

a(0) = 1; a(n) = -Sum_{k=1..n} A008578(k) * a(n-k).

Mathematica

nmax = 50; CoefficientList[Series[1/(1 + x + Sum[Prime[k - 1] x^k, {k, 2, nmax}]), {x, 0, nmax}], x]

Crossrefs

Cf. A000040, A008578, A030017, A030018, A300662, A346791.

Sequence in context: A025255 A296006 A245397 * A294316 A294761 A167284

Adjacent sequences: A346789 A346790 A346791 * A346793 A346794 A346795

Keyword

sign

Author

Ilya Gutkovskiy, Aug 04 2021

Status

approved