|
Search: id:A123957
|
|
|
| A123957 |
|
A 4 X 4 vector matrix Markov based on a shifted Chebyshev recursive characteristic polynomial: 4 + 4 x - 3 x^2 + x^4 <- (1 - 3 y + 4 y^2 + 4 y^3). |
|
+0
1
|
|
| 0, 0, 0, 1, 0, 3, -4, 5, -24, 19, -76, 133, -208, 627, -852, 2181, -4232, 7443, -18012, 30533, -66880, 133875, -250724, 547013, -1020152, 2108435, -4245612, 8217861, -17089968, 33202291, -67158900, 135095301, -265925992, 541112339, -1069523580, 2146659781, -4309316128, 8553624307
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
FORMULA
|
M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-4, -4, 3, 0}}; v[1] = {0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-4, -4, 3, 0}}; v[1] = {0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A037347 A116474 A126896 this_sequence A085285 A085841 A024687
Adjacent sequences: A123954 A123955 A123956 this_sequence A123958 A123959 A123960
|
|
KEYWORD
|
uned,probation,sign
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Oct 27 2006
|
|
|
Search completed in 0.002 seconds
|
