OFFSET
1,2
LINKS
Index entries for linear recurrences with constant coefficients, signature (7, -4, -45, 64, 55, -128, 52).
FORMULA
G.f.: x^2*(-28-236*x+829*x^2+331*x^3-2122*x^4+1130*x^5)/( (x-1)* (2*x+1) * (2*x-1) * (13*x^4-19*x^3-2*x^2+6*x-1)).
MATHEMATICA
M = {{0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0}, {1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0}, {1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1}, { 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0}, {0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0}, {0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 01}, {0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1}, {0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1}, {0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0}} v[1] = Table[Fibonacci[n], {n, 0, 11}] v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]
LinearRecurrence[{7, -4, -45, 64, 55, -128, 52}, {0, 28, 432, 2083, 11262, 54976, 274107}, 20] (* Harvey P. Dale, Feb 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Aug 28 2006
EXTENSIONS
Definition replaced by recurrence - The Assoc. Editors of the OEIS, Oct 14 2009
STATUS
approved