A125898 Floor((quadronacci ratio)^n).

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

Offset

1,2

Links

Table of n, a(n) for n=1..33.

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

Cf. A125890-A125899.

Sequence in context: A283177 A284297 A205521 * A146928 A068673 A298360

Adjacent sequences: A125895 A125896 A125897 * A125899 A125900 A125901

Keyword

nonn

Author

Artur Jasinski, Dec 13 2006

Status

approved