A245240 Coefficients of the series reversion of the series Sum(x^k for k in A008578).

0, 1, -1, 1, 0, -5, 21, -59, 117, -95, -484, 3131, -11219, 28216, -40975, -49778, 630853, -2758309, 8205948, -16014181, 3933569, 135111669, -743995720, 2566032656, -6105683945, 6584104436, 26402611080, -205994058892, 825490609412, -2295266373781

Offset

0,6

Links

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

Formula

G.f.: series reversion of Sum(x^k for k in A008578) = x + Sum(x^n, n is prime).

Example

x - x^2 + x^3 - 5*x^5 + 21*x^6 + ...

Mathematica

With[{N = 10}, CoefficientList[InverseSeries[x + Sum[x^Prime[k], {k, 1, N}] + O[x]^(Prime[N + 1] - 1)], x]]

Prog

(PARI) t=Ser(x+O(x^31)); forprime(p=2, 30, t+=x^p); Vec(serreverse(t)) /* Max Alekseyev, Jul 15 2014 */

Crossrefs

Cf. A008578, A080339.

Sequence in context: A166464 A059859 A146617 * A370839 A203233 A112561

Adjacent sequences: A245237 A245238 A245239 * A245241 A245242 A245243

Keyword

sign,easy

Author

Arsenii Abdrafikov, Jul 14 2014

Status

approved