|
| |
|
|
A130637
|
|
A vector matrix Markov doubly recursive sequence with characteristic polynomial: 1 + n x^3 - x^5 and matrix: M(n)={{0, n, 0, 0, 1}, {1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}}.
|
|
0
| |
|
|
0, 1, 0, 3, 0, 15, 1, 105, 11, 945, 125, 10396, 1605, 135159, 23415, 2027510, 385036, 34469275, 7065807, 654939640, 143343650, 13754117476, 3188029575, 316351767755, 77167649440, 7908937537525, 2020113002916, 213544501542750
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| Determinants are all 1.
|
|
|
FORMULA
| M(0) ={{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, 1, 0, 0}};; M(n)={{0, n, 0, 0, 1}, {1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}}; v(n)=M(n).v(n-1) a(n) = v(n)[[1]]
|
|
|
MATHEMATICA
| M[0] = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, 1, 0, 0}}; M[n_] := {{0, n, 0, 0, 1}, {1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}}; v[0] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M[n].v[n - 1]; a = Table[v[n][[1]], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A167339 A138540 A123023 * A054882 A086479 A091000
Adjacent sequences: A130634 A130635 A130636 * A130638 A130639 A130640
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 19 2007
|
| |
|
|
