OFFSET
0,4
LINKS
Index entries for linear recurrences with constant coefficients, signature (7,0,-7,-1).
FORMULA
G.f.: x*(1-6*x-5*x^2)/(1-7*x+7*x^3+x^4). [Sep 28 2009]
MATHEMATICA
m = 7 M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-1, -m, 0, m}} Expand[Det[M - x*IdentityMatrix[4]]] NSolve[Det[M - x*IdentityMatrix[4]] == 0, x] v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M.v[n - 1]; digits = 50; a = Table[v[n][[1]], {n, 1, digits}]
LinearRecurrence[{7, 0, -7, -1}, {0, 1, 1, 2}, 30] (* Harvey P. Dale, Oct 02 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 24 2005
EXTENSIONS
Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
STATUS
approved