|
| |
|
|
A107388
|
|
A quartic Fibonacci type alternating / chaotic vector Markov sequence of a quartic characteristic: x^4+4*x^2-4*x-1 for m=4.
|
|
1
| |
|
|
0, 1, 1, 2, 4, 21, 75, 286, 1064, 3977, 14839, 55386, 206700, 771421, 2878979, 10744502, 40099024, 149651601, 558507375, 2084377906, 7779004244, 29031639077, 108347552059, 404358569166, 1509086724600, 5631988329241, 21018866592359, 78443478040202
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
FORMULA
| m=4; M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, m, 0, -m}}; v[n] = M.v[n - 1]; a(n) =Abs[v[n][[1]]]
|
|
|
MATHEMATICA
| m = 4; M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, m, 0, - m}}; Expand[Det[M - x*IdentityMatrix[4]]] ; NSolve[Det[M - x*IdentityMatrix[4]] == 0, x] ; v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M . v[n - 1]; digits = 50; aa = Table[Abs[v[n][[1]]], {n, 1, digits}]
|
|
|
CROSSREFS
| Sequence in context: A122736 A092458 A071779 * A151803 A151804 A151805
Adjacent sequences: A107385 A107386 A107387 * A107389 A107390 A107391
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 24 2005, corrected Sep 04 2008
|
| |
|
|
