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).

0, 28, 432, 2083, 11262, 54976, 274107, 1345543, 6629946, 32586349, 160268532, 787926091, 3874117269, 19047230005, 93648237255, 460429207264, 2263745709876, 11129911057732, 54721250218635, 269042081326366

Offset

1,2

Links

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

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

Sequence in context: A004415 A096949 A093974 * A022656 A154588 A125485

Adjacent sequences: A121800 A121801 A121802 * A121804 A121805 A121806

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