A329516 Expansion of (x^4 - x^3 - 3*x^2 - 2*x - 1)/(x - 1).
1, 3, 6, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6
Offset: 0
Keywords
Links
- Index entries for linear recurrences with constant coefficients, signature (1).
Crossrefs
Row n=1 in array in A329515.
Programs
-
Mathematica
CoefficientList[Series[(x^4 - x^3 - 3*x^2 - 2*x - 1)/(x - 1), {x, 0, 120}], x] (* Wesley Ivan Hurt, Jun 26 2022 *) PadRight[{1,3,6,7},120,{6}] (* Harvey P. Dale, Dec 28 2023 *)
Formula
G.f.: (x^4 - x^3 - 3*x^2 - 2*x - 1)/(x - 1).
a(n) = 6 for n >= 4.
Comments