login
A121803
a(n)= 7*a(n-1) -4*a(n-2) -45*a(n-3) +64*a(n-4) +55*a(n-5) -128*a(n-6) +52*a(n-7).
1
0, 28, 432, 2083, 11262, 54976, 274107, 1345543, 6629946, 32586349, 160268532, 787926091, 3874117269, 19047230005, 93648237255, 460429207264, 2263745709876, 11129911057732, 54721250218635, 269042081326366
OFFSET
1,2
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
Sequence in context: A004415 A096949 A093974 * A022656 A154588 A125485
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