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

Author

Arsenii Abdrafikov, Jul 14 2014

Keywords

• sign
• easy

Examples

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

Crossrefs

Cf. A008578, A080339.

Programs

Mathematica

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

PARI

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

Formula

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