|
Search: id:A106850
|
|
|
| A106850 |
|
4 X 4 vector Markov with characteristic polynomial: x^4-10*x^3+25*x^2-9. |
|
+0 1
|
|
| 0, 6, 33, 174, 915, 4854, 25962, 139836, 757545, 4123236, 22527393, 123451554, 678148620, 3732306474, 20572095777, 113524359906, 627044542215, 3465927182766, 19168307134278, 106056611012784, 587001832650825
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Real Valued roots: {{x -> -0.541381}, {x -> 0.697224}, {x -> 4.30278}, {x -> 5.54138}}
|
|
FORMULA
|
M = {{0, 0, 0, 3}, {1, 5, 0, 0}, {0, 3, 0, 0}, {0, 0, 1, 5}} v[n]=M.v[n-1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 0, 0, 3}, {1, 5, 0, 0}, {0, 3, 0, 0}, {0, 0, 1, 5}} v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M.v[n - 1]; digits = 50; a = Table[v[n][[1]], {n, 1, digits}]
|
|
CROSSREFS
|
Adjacent sequences: A106847 A106848 A106849 this_sequence A106851 A106852 A106853
Sequence in context: A086314 A086091 A081893 this_sequence A094165 A111994 A092851
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 30 2005
|
|
|
Search completed in 0.002 seconds
|