|
Search: id:A123959
|
|
|
| A123959 |
|
Let M be the 5 X 5 matrix {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {-8, -8, 8, 4, 0}}; let v[1] = {0, 0, 0, 0, 1}'; v[n] = M.v[n - 1]'; then a(n) = v[n]'[[1]] (the prime denotes transposition). |
|
+0
1
|
|
| 0, 0, 0, 0, 1, 0, 4, 8, 8, 56, 64, 192, 576, 768, 2880, 5632, 11520, 34816, 61952, 163328, 389120, 778240, 2088960, 4423680, 10162176, 25067520, 53100544, 129466368, 296255488, 660832256, 1595408384, 3552837632, 8262516736
(list; graph; listen)
|
|
|
OFFSET
|
1,7
|
|
|
COMMENT
|
A 5 X 5 vector matrix Markov chain based on a shifted Chebyshev recursive characteristic polynomial: -8 - 8 x + 8 x^2 + 4 x^3 - x^5 <- (-1 + 4 y + 8 y^2 - 8 y^3 - 8 y^4).
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {-8, -8, 8, 4, 0}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A030296 A095806 A096872 this_sequence A096412 A117180 A123531
Adjacent sequences: A123956 A123957 A123958 this_sequence A123960 A123961 A123962
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Oct 27 2006
|
|
EXTENSIONS
|
Edited by njas, Mar 30 2007
|
|
|
Search completed in 0.002 seconds
|
