|
Search: id:A107480
|
|
|
| A107480 |
|
Heptic Salem vector Markov sequence. |
|
+0
2
|
|
| 0, 1, 1, 2, 3, 5, 8, 14, 25, 42, 71, 121, 207, 353, 601, 1025, 1748, 2980, 5080, 8661, 14767, 25176, 42922, 73178, 124762, 212707, 362644, 618273, 1054096, 1797131, 3063933, 5223708, 8905915, 15183719, 25886764, 44134416, 75244889, 128285220
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Limit[a[n]/a[n-1]=1.70490277
|
|
REFERENCES
|
Some Computationals on Pisot and Salem Numbers, Peter Borwein and Kevin G. Hare, 2000, table Page 7
|
|
FORMULA
|
M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {1, 0, 1, 1, 1, 0, 1}} v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {1, 0, 1, 1, 1, 0, 1}} v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, digits}]
|
|
CROSSREFS
|
Cf. A013984.
Sequence in context: A072100 A104882 A091956 this_sequence A128021 A036241 A125028
Adjacent sequences: A107477 A107478 A107479 this_sequence A107481 A107482 A107483
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2005
|
|
|
Search completed in 0.002 seconds
|
