A173243 G.f. (x + 1)^10/(x^10 + x^9 - x^7 - x^6 - x^5 - x^4 - x^3 + x + 1).
1, 9, 36, 85, 135, 163, 178, 208, 265, 341, 419, 485, 549, 642, 778, 940, 1110, 1290, 1498, 1761, 2095, 2487, 2921, 3413, 4000, 4712, 5565, 6563, 7711, 9044, 10627, 12516, 14745, 17352, 20397, 23969, 28187, 33176, 39048, 45931, 54007, 63509
Offset: 0
Keywords
Links
- Index entries for linear recurrences with constant coefficients, signature (-1, 0, 1, 1, 1, 1, 1, 0, -1, -1).
Crossrefs
Cf. A029826
Programs
-
Mathematica
p[x_] = (x + 1)^10/(x^10 + x^9 - x^7 - x^6 - x^5 - x^4 - x^3 + x + 1); a = Table[SeriesCoefficient[ Series[p[x], {x, 0, 50}], n], {n, 0, 50}] LinearRecurrence[{-1,0,1,1,1,1,1,0,-1,-1},{1,9,36,85,135,163,178,208,265,341,419},50] (* Harvey P. Dale, Sep 04 2021 *)
Extensions
Removed unused variables - The Assoc. Editors of the OEIS, Feb 24 2010
Comments