|
Search: id:A107384
|
|
|
| A107384 |
|
Quartic Fibonacci sequence. |
|
+0
1
|
|
| 0, 1, 1, 2, 5, 8, 20, 38, 83, 173, 362, 767, 1604, 3386, 7112, 14969, 31493, 66242, 139385, 293204, 616880, 1297766, 2730251, 5743937, 12084050, 25422563, 53483960, 112519838, 236719568, 498011393, 1047718217, 2204192882
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Related to the real root quartic vector Markov type sequence to give real integers. Limit a[n]/a[n-1]=2.1038034027
|
|
FORMULA
|
m=3 a(n) = a[n-1]+m*a[n-2]-m*a[n-4]
|
|
MATHEMATICA
|
m = 3 a[0] = 0; a[1] = 1; a[2] = 1; a[3] = 2; a[n_] := a[n] = a[n - 1] + m*a[n - 2] - m*a[n - 4] digits = 50 aa = Table[a[n], {n, 0, digits}]
|
|
CROSSREFS
|
Sequence in context: A054774 A104721 A139407 this_sequence A092446 A087077 A117647
Adjacent sequences: A107381 A107382 A107383 this_sequence A107385 A107386 A107387
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 24 2005
|
|
|
Search completed in 0.002 seconds
|
