|
Search: id:A122520
|
|
|
| A122520 |
|
5 X 5 vector matrix Markov: characteristic polynomial: (-1 - x - x^2 - x^3 + x^5). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, -2, 1, 1, 1, -2, -2, 4, 1, -2, -5, 4, 7, -5, -8, 1, 16, -2, -20, -2, 25, 13, -38, -20, 43, 40, -50, -71, 61, 103, -53, -161, 40, 235, -11, -317, -68, 436, 184, -563, -374, 685, 688, -815, -1121, 874
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
COMMENT
|
Root sum is zero: Table[x /. NSolve[Det[M*x - IdentityMatrix[5]] == 0, x][[n]], {n, 1, 5}] Apply[Plus, %]=0
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, -1, -1, -1}}; w[1] = {1, 1, 1, 1, 1}; w[n_] := w[n] = M.w[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, -1, -1, -1}}; w[1] = {1, 1, 1, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Table[w[n][[1]], {n, 1, 30}]
|
|
CROSSREFS
|
Adjacent sequences: A122517 A122518 A122519 this_sequence A122521 A122522 A122523
Sequence in context: A103502 A127950 A069545 this_sequence A058393 A131256 A122945
|
|
KEYWORD
|
sign,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 16 2006
|
|
|
Search completed in 0.002 seconds
|
