|
Search: id:A122995
|
|
|
| A122995 |
|
A rational vector matrix Markov with 1/5 coefficient: characteristic Polynomial: -1 - x/5 + x^2. |
|
+0
1
|
|
| 1, 5, 30, 155, 905, 4780, 27405, 146905, 832030, 4504655, 25305405, 137921780, 770556905, 4218601405, 23482524030, 128947559155, 716010659905, 3939699638780, 21839966136405, 120332457105905, 666331610516030
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Two real roots: NSolve[Det[M - x*IdentityMatrix[2]] == 0, x] {{x -> -0.904988}, {x -> 1.10499}}
|
|
FORMULA
|
M := {{0, 1}, {1, 1/5}}; v[1] = {1, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) =v[n][[1]]*5^(n - 1)
|
|
MATHEMATICA
|
M := {{0, 1}, {1, 1/5}}; v[1] = {1, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[v[n][[1]]*5^(n - 1), {n, 1, 30}]
|
|
CROSSREFS
|
Cf. A026597.
Sequence in context: A055298 A104891 A110155 this_sequence A003731 A055838 A094972
Adjacent sequences: A122992 A122993 A122994 this_sequence A122996 A122997 A122998
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 22 2006
|
|
|
Search completed in 0.002 seconds
|
