A107467 a(n)= 3*a(n-1) +a(n-2) -3*a(n-3) +a(n-4)+ 2*a(n-5) -a(n-6) -a(n-7).

0, 1, 1, 2, 3, 5, 8, 23, 67, 208, 635, 1943, 5940, 18169, 55579, 170024, 520127, 1591139, 4867506, 14890349, 45551563, 139348310, 426285079, 1304062953, 3989302624, 12203809169, 37333081059, 114206877712, 349374081829

Offset

0,4

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (3,1,-3,1,2,-1,-1).

Formula

G.f.: x*(1-2*x-2*x^2-x^3-4*x^4-7*x^5)/(1-3*x-x^2+3*x^3-x^4-2*x^5+x^6+x^7). [Sep 28 2009]

Mathematica

M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {-1, -1, 2, 1, -3, 1, 3}} v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, digits}]
LinearRecurrence[{3, 1, -3, 1, 2, -1, -1}, {0, 1, 1, 2, 3, 5, 8}, 30] (* Harvey P. Dale, Oct 19 2016 *)

Crossrefs

Sequence in context: A178356 A042785 A136682 * A191425 A155881 A318763

Adjacent sequences: A107464 A107465 A107466 * A107468 A107469 A107470

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

Definition corrected by Harvey P. Dale, Oct 19 2016

Status

approved