|
Search: id:A123955
|
|
|
| A123955 |
|
A tridiagonal 5 X 5 vector matrix Markov with 3's on the main diagonal with characteristic polynomial: 144 - 300 x + 234 x^2 - 86 x^3 + 15 x^4 - x^5). |
|
+0
1
|
|
| 0, 0, 0, 0, 1, 15, 139, 1029, 6691, 40041, 226435, 1230009, 6487195, 33464145, 169720915, 849504825, 4208146411, 20674387905, 100901918659, 489826044489, 2367517203931, 11402423910801, 54755709794995, 262308279256089
(list; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
COMMENT
|
All the roots are large positive with a 2,3,4 count up in the middle: aaa = Table[x /. NSolve[Det[M - x*IdentityMatrix[5]] == 0, x][[n]], {n, 1, 5}] {1.26795, 2., 3., 4., 4.73205}
|
|
FORMULA
|
M = {{3, -1, 0, 0, 0}, {-1, 3, -1, 0, 0}, {0, -1, 3, -1, 0}, {0, 0, -1, 3, -1}, {0, 0, 0, -1, 3}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{3, -1, 0, 0, 0}, {-1, 3, -1, 0, 0}, {0, -1, 3, -1, 0}, {0, 0, -1, 3, -1}, {0, 0, 0, -1, 3}}; 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: A125378 A126536 A030056 this_sequence A027802 A133716 A035330
Adjacent sequences: A123952 A123953 A123954 this_sequence A123956 A123957 A123958
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Gary Adamson and Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 27 2006
|
|
|
Search completed in 0.002 seconds
|
