OFFSET
0,4
COMMENTS
The characteristic polynomial has the integer root -2 and the two real-valued roots 1+-sqrt(769).
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,772,1536).
FORMULA
a(n)=772*a(n-2)+1536*a(n-3), n>2. [_From Harvey P. Dale_, Nov 25 2011]
MATHEMATICA
M = {{0, 1, 0}, {0, 0, 1}, {1536, 772, 0}}; w[0] = {0, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n][[1]], {n, 0, 25}]]
LinearRecurrence[{0, 772, 1536}, {0, 1, 1}, 20] (* Harvey P. Dale, Nov 25 2011 *)
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Feb 15 2006
STATUS
approved