%I #10 Nov 21 2013 12:49:01
%S 1,3,7,13,26,51,98,190,367,708,1364,2630,5071,9775,18841,36318,70007,
%T 134942,260110,501380,966441,1862874,3590806,6921503,13341626,
%U 25716810,49570746,95550687,184179871,355018115,684319420,1319068095,2542585503
%N Floor((quadronacci ratio)^n).
%e Quadronacci ratio is root 1.92756... (A086088) of polynomial x^4-x^3-x^2-x-1.
%t 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 *)
%Y Cf. A125890-A125899.
%K nonn
%O 1,2
%A _Artur Jasinski_, Dec 13 2006