A143606 Expansion of x/(1+x-x^3-x^5-x^6-x^7-x^9+x^11+x^12).

1, -1, 1, 0, -1, 3, -3, 3, 0, -2, 6, -7, 8, -3, -1, 11, -16, 22, -15, 6, 18, -35, 56, -49, 33, 20, -68, 130, -138, 121, -13, -108, 279, -356, 374, -177, -102, 544, -847, 1037, -743, 162, 905, -1850, 2646, -2414, 1367, 1035, -3637, 6265, -6876

Offset

1,6

Links

Table of n, a(n) for n=1..51.

Formula

G.f.: x/(1+x-x^3-x^5-x^6-x^7-x^9+x^11+x^12). [R. J. Mathar, Mar 25 2009]

Mathematica

f[x_] = 1 + x - x^3 - x^5 - x^6 - x^7 - x^9 + x^11 + x^12;
g[x] = ExpandAll[x^12*f[1/x]];
Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}];

Crossrefs

Sequence in context: A247093 A329273 A130719 * A126660 A202698 A320785

Adjacent sequences: A143603 A143604 A143605 * A143607 A143608 A143609

Keyword

sign,easy,less

Author

Roger L. Bagula and Gary W. Adamson, Oct 26 2008

Extensions

Better name (using g.f.) from Joerg Arndt, Apr 06 2018

Status

approved