A320257 a(n) = [x^n] 1/(1 + Sum_{k>=1} k^n*x^k).

1, -1, -3, -12, 115, 10801, 513128, -31622305, -29139002795, -10674262825020, 8501486817673047, 49739414341982655313, 119603027548636893292304, -1457935338988787721752835601, -53309412371631686621966575526695, -722987647385617983636099803915844108

Offset: 0

Author

Ilya Gutkovskiy, Oct 08 2018

Keywords

• sign

Crossrefs

Cf. A301655, A316087, A316088.

Programs

Mathematica

Table[SeriesCoefficient[1/(1 + Sum[k^n x^k, {k, 1, n}]), {x, 0, n}], {n, 0, 15}]
Table[SeriesCoefficient[1/(1 + PolyLog[-n, x]), {x, 0, n}], {n, 0, 15}]

Formula

a(n) = [x^n] 1/(1 + PolyLog(-n,x)), where PolyLog() is the polylogarithm function.