A107477 a(n)= 7*a(n-1) +5*a(n-2) -35*a(n-3) +7*a(n-4) +5*a(n-5) -a(n-6), n>10.

1, 1, 2, 3, 5, 8, 118, 1011, 7339, 52332, 368505, 2591989, 18211138, 127942244, 898765639, 6313614979, 44351223914, 311553904337, 2188569785219, 15374026372032, 107997774755178, 758650932498691, 5329287885039911

Offset

0,3

Links

Table of n, a(n) for n=0..22.

Index entries for linear recurrences with constant coefficients, signature (7, 5, -35, 7, 5, -1).

Formula

G.f.: (1-6*x-10*x^2+16*x^5+124*x^6+290*x^7-96*x^8-44*x^9+10*x^10+19*x^3+2*x^4) / (1-7*x-5*x^2+35*x^3-7*x^4-5*x^5+x^6).

Mathematica

m=5 M = {{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}, {-1, m, (m + 2), -m*(m + 2), m, (m + 2)}} v[0] = {0, 1, 1, 2, 3, 5} v[n_] := M.v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 50}]
Join[{1, 1, 2, 3, 5}, LinearRecurrence[{7, 5, -35, 7, 5, -1}, {8, 118, 1011, 7339, 52332, 368505}, 20]] (* Harvey P. Dale, Mar 30 2012 *)

Crossrefs

Sequence in context: A279073 A279074 A120495 * A271525 A357101 A232562

Adjacent sequences: A107474 A107475 A107476 * A107478 A107479 A107480

Keyword

nonn,easy

Author

Roger L. Bagula, May 27 2005

Extensions

Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009

Status

approved