OFFSET
1,4
LINKS
Index entries for linear recurrences with constant coefficients, signature (11,-45,80,-49).
MATHEMATICA
M = {{2, -1, 0, 0}, {-1, 3, -1, 0}, {0, -1, 3, 2}, {0, 0, -1, 3}}; v[1] = {0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
LinearRecurrence[{11, -45, 80, -49}, {0, 0, 0, 2}, 30] (* Harvey P. Dale, Oct 05 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson and Roger L. Bagula, Oct 28 2006
STATUS
approved