|
%I #21 Mar 19 2017 09:01:34
%S 1,1,2,7,135,412,547,959,36989,37948,74937,262759,5067358,15464833,
%T 20532191,35997024,1388419103,1424416127,2812835230,9862921817,
%U 190208349753,580487971076,770696320829,1351184291905,52115699413219,53466883705124,105582583118343
%N Denominators of continued fraction convergents to sqrt(383).
%H Vincenzo Librandi, <a href="/A041727/b041727.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 37536, 0, 0, 0, 0, 0, 0, 0, -1).
%F G.f.: -(x^14 -x^13 +2*x^12 -7*x^11 +135*x^10 -412*x^9 +547*x^8 -959*x^7 -547*x^6 -412*x^5 -135*x^4 -7*x^3 -2*x^2 -x -1) / (x^16 -37536*x^8 +1). - _Colin Barker_, Nov 22 2013
%F a(n) = 37536*a(n-8) - a(n-16) for n>15. - _Vincenzo Librandi_, Dec 23 2013
%p convert(sqrt(383), confrac, 30, cvgts): denom(cvgts); # _Wesley Ivan Hurt_, Dec 23 2013
%t Denominator[Convergents[Sqrt[383], 40]] (* _Harvey P. Dale_, May 02 2012 *)
%t CoefficientList[Series[-(x^14 - x^13 + 2 x^12 - 7 x^11 + 135 x^10 - 412 x^9 + 547 x^8 - 959 x^7 - 547 x^6 - 412 x^5 - 135 x^4 - 7 x^3 - 2 x^2 - x - 1)/(x^16 - 37536 x^8 + 1), {x, 0, 30}], x] (* _Vincenzo Librandi_, Dec 23 2013 *)
%Y Cf. A041726, A040363.
%K nonn,frac,easy
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Colin Barker_, Nov 22 2013
|
