|
|
A125898
|
|
Floor((quadronacci ratio)^n).
|
|
0
|
|
|
1, 3, 7, 13, 26, 51, 98, 190, 367, 708, 1364, 2630, 5071, 9775, 18841, 36318, 70007, 134942, 260110, 501380, 966441, 1862874, 3590806, 6921503, 13341626, 25716810, 49570746, 95550687, 184179871, 355018115, 684319420, 1319068095, 2542585503
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
Quadronacci ratio is root 1.92756... (A086088) of polynomial x^4-x^3-x^2-x-1.
|
|
MATHEMATICA
|
With[{c=x/.FindRoot[x^4-x^3-x^2-x-1==0, {x, 1.9}, WorkingPrecision->100]}, Floor[c^Range[40]]] (* Harvey P. Dale, Mar 05 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|