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

Author

Artur Jasinski, Dec 13 2006

Keywords

• nonn

Examples

			Quadronacci ratio is root 1.92756... (A086088) of polynomial x^4-x^3-x^2-x-1.
		

Crossrefs

Cf. A125890-A125899.

Programs

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 *)