|
Search: id:A106804
|
|
|
| A106804 |
|
4 X 4 vector Markov with characteristic polynomial: x^4-10*x^3+25*x^2-1. |
|
+0
1
|
|
| 0, 2, 11, 56, 285, 1452, 7406, 37816, 193295, 989002, 5065051, 25963276, 133199780, 683904902, 3514119571, 18069536436, 92975574865, 478701242652, 2466137174466, 12711910214796, 65558648361175, 338267429484502
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Real Valued roots: {{x -> -0.192582}, {x -> 0.208712}, {x -> 4.79129}, {x -> 5.19258}}
|
|
FORMULA
|
M = {{0, 0, 0, 1}, {1, 5, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 5}} v[n]=M.v[n-1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 0, 0, 1}, {1, 5, 0, 0}, {0, 1, 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: A106801 A106802 A106803 this_sequence A106805 A106806 A106807
Sequence in context: A037731 A115205 A037554 this_sequence A041129 A037490 A037570
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 30 2005
|
|
|
Search completed in 0.002 seconds
|
