[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
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).
1
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
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
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