|
Search: id:A122519
|
|
|
| A122519 |
|
5 X 5 vector matrix Markov: characteristic polynomial: (-1 + x^3 + x^4 + x^5). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 3, 3, 3, 5, 7, 9, 11, 15, 21, 27, 35, 47, 63, 83, 109, 145, 193, 255, 337, 447, 593, 785, 1039, 1377, 1825
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
COMMENT
|
Root sum is an Integer: Table[x /. NSolve[Det[M*x - IdentityMatrix[5]] == 0, x][[n]], {n, 1, 5}] Apply[Plus, %]=-1
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 1, 1, 0, 0}}; 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, 1, 1, 0, 0}}; w[1] = {1, 1, 1, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Table[w[n][[1]], {n, 1, 30}]
|
|
CROSSREFS
|
Sequence in context: A046702 A133683 A117900 this_sequence A141695 A100026 A100049
Adjacent sequences: A122516 A122517 A122518 this_sequence A122520 A122521 A122522
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 16 2006
|
|
|
Search completed in 0.002 seconds
|
