|
Search: id:A107388
|
|
|
| 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. |
|
+0 2
|
|
| 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, 292755045568444, 1092576704233581, 4077551771365875, 15217630381229926, 56792969753553824, 211954248632985377, 791024024778387679, 2952141850480565346, 11017543377143873700, 41118031658094929461, 153454583255235844139, 572700301362848447102, 2137346622196157944264, 7976686187421783329961, 29769398127490975375575, 111100906322542118172346, 414634227162677497313804, 1547436002328167871082877, 5775109782149993987017699, 21553003126271808076987926, 80436902722937238320934000, 300194607765477145206748081
(list; graph; listen)
|
|
|
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 this_sequence A151803 A151804 A151805
Adjacent sequences: A107385 A107386 A107387 this_sequence A107389 A107390 A107391
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 24 2005, corrected Sep 04 2008
|
|
|
Search completed in 0.002 seconds
|