OFFSET
1,3
COMMENTS
Obtained as the top element of the vector resulting from multiplying the n-th power of the 8 X 8 matrix [[0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 0], [0, 0, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 0, 1], [-1, -4, 10, 10, -15, -6, 7, 1]] with the column vector which contains only 1's.
LINKS
Index entries for linear recurrences with constant coefficients, signature (43,-691,5146,-17903,25954,-11826,876,-1)
MATHEMATICA
M = {{0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {-1, -4, 10, 10, -15, -6, 7, 1}}; v[1] = Table[1, {n, 1, 8}]; v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 100, 4}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula and Gary W. Adamson, Sep 20 2006
STATUS
approved