|
%I #30 Oct 19 2017 03:14:14
%S 0,1,2,7,9,25,84,109,302,1015,1317,3649,12264,15913,44090,148183,
%T 192273,532729,1790460,2323189,6436838,21633703,28070541,77774785,
%U 261394896,339169681,939734258,3158372455,4098106713,11354585881,38161864356
%N Numerators of continued fraction convergents to (sqrt(37)-4)/3.
%H Vincenzo Librandi, <a href="/A082962/b082962.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 12, 0, 0, 1).
%F Empirical g.f.: x*(1+2*x+7*x^2-3*x^3+x^4)/(1-12*x^3-x^6). - _Colin Barker_, Jan 04 2012
%t t = Join[{0}, Flatten[ Table[{1, 2, 3}, {12}]]]; Rest[ Table[ Numerator[ FromContinuedFraction[ Take[t, n]]], {n, 31}]] (* _Robert G. Wilson v_, Feb 12 2005 *)
%t Numerator[Convergents [(Sqrt[37]-4)/3, 30]] (* _Vincenzo Librandi_, Feb 01 2014 *)
%Y Denominators are A082975.
%K nonn,frac,easy
%O 0,3
%A _Gary W. Adamson_, May 27 2003
%E Edited by _Don Reble_, Nov 04 2005
%E Prepended a(0)=0 from _Vincenzo Librandi_, Feb 01 2014
|
