|
Search: id:A108014
|
|
|
| A108014 |
|
4 X 4 vector Markov with characteristic polynomial: x^4-2*x^3+x^2-1. |
|
+0
2
|
|
| 0, 2, 3, 4, 5, 8, 14, 24, 39, 62, 99, 160, 260, 422, 683, 1104, 1785, 2888, 4674, 7564, 12239, 19802, 32039, 51840, 83880, 135722, 219603, 355324, 574925, 930248, 1505174, 2435424, 3940599, 6376022, 10316619, 16692640, 27009260, 43701902
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Fibonacci Salem roots: {x -> -0.618034}, {x -> 0.5 - 0.866025*I}, {x -> 0.5 + 0.866025*I}, {x -> 1.61803}}
|
|
FORMULA
|
M = {{0, 0, 0, 1}, {1, 1, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 1}} v[n]=v[n-1].M a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 0, 0, 1}, {1, 1, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 1}} 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
|
Sequence in context: A162901 A162900 A140294 this_sequence A075721 A112479 A081711
Adjacent sequences: A108011 A108012 A108013 this_sequence A108015 A108016 A108017
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 30 2005
|
|
|
Search completed in 0.002 seconds
|
