|
%I #18 Mar 19 2017 12:53:58
%S 1,1,2,7,9,16,57,1726,5235,6961,12196,43549,55745,99294,6013385,
%T 6112679,12126064,42490871,54616935,97107806,345940353,10475318396,
%U 31771895541,42247213937,74019109478,264304542371,338323651849,602628194220,36496015305049
%N Denominators of continued fraction convergents to sqrt(934).
%H Vincenzo Librandi, <a href="/A042807/b042807.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec#order_28">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6069130, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1).
%F G.f.: -(x^26 -x^25 +2*x^24 -7*x^23 +9*x^22 -16*x^21 +57*x^20 -1726*x^19 +5235*x^18 -6961*x^17 +12196*x^16 -43549*x^15 +55745*x^14 -99294*x^13 -55745*x^12 -43549*x^11 -12196*x^10 -6961*x^9 -5235*x^8 -1726*x^7 -57*x^6 -16*x^5 -9*x^4 -7*x^3 -2*x^2 -x -1)/(x^28 -6069130*x^14 +1). - _Vincenzo Librandi_, Jan 30 2014
%F a(n) = 6069130*a(n-14) - a(n-28) for n>27. - _Vincenzo Librandi_, Jan 30 2014
%t Denominator[Convergents[Sqrt[934], 30]] (* _Harvey P. Dale_, May 28 2013 *)
%t CoefficientList[Series[-(x^26 - x^25 + 2 x^24 - 7 x^23 + 9 x^22 - 16 x^21 + 57 x^20 - 1726 x^19 + 5235 x^18 - 6961 x^17 + 12196 x^16 - 43549 x^15 + 55745 x^14 - 99294 x^13 - 55745 x^12 - 43549 x^11 - 12196 x^10 - 6961 x^9 - 5235 x^8 - 1726 x^7 - 57 x^6 - 16 x^5 - 9 x^4 - 7 x^3 - 2 x^2 - x - 1)/(x^28 - 6069130 x^14 + 1), {x, 0, 30}], x] (* _Vincenzo Librandi_, Jan 30 2014 *)
%Y Cf. A042806, A040903.
%K nonn,frac,easy
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Vincenzo Librandi_, Jan 20 2014
|
