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,3

Links

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

Formula

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

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}]

Crossrefs

Cf. A301655, A316087, A316088.

Sequence in context: A352637 A119649 A308144 * A350410 A009254 A133987

Adjacent sequences: A320254 A320255 A320256 * A320258 A320259 A320260

Keyword

sign

Author

Ilya Gutkovskiy, Oct 08 2018

Status

approved