|
%I #15 Sep 08 2022 08:44:54
%S 1,1,2,3,14,87,362,449,811,1260,23491,24751,48242,72993,340214,
%T 2114277,8797322,10911599,19708921,30620520,570878281,601498801,
%U 1172377082,1773875883,8267880614,51381159567,213792518882,265173678449,478966197331,744139875780
%N Denominators of continued fraction convergents to sqrt(93).
%H Vincenzo Librandi, <a href="/A041167/b041167.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,24302,0,0,0,0,0,0,0,0,0,-1).
%F G.f.: -(x^18 -x^17 +2*x^16 -3*x^15 +14*x^14 -87*x^13 +362*x^12 -449*x^11 +811*x^10 -1260*x^9 -811*x^8 -449*x^7 -362*x^6 -87*x^5 -14*x^4 -3*x^3 -2*x^2 -x -1) / (x^20 -24302*x^10 +1). - _Colin Barker_, Nov 14 2013
%F a(n) = 24302*a(n-10) - a(n-20). - _Vincenzo Librandi_, Dec 12 2013
%t Denominator[Convergents[Sqrt[93], 30]] (* _Vincenzo Librandi_, Dec 12 2013 *)
%o (Magma) I:=[1, 1, 2, 3, 14, 87, 362, 449, 811, 1260, 23491, 24751, 48242, 72993, 340214, 2114277, 8797322, 10911599, 19708921, 30620520]; [n le 20 select I[n] else 24302*Self(n-10)-Self(n-20): n in [1..40]]; // _Vincenzo Librandi_, Dec 12 2013
%Y Cf. A041166, A010164, A020850, A010544.
%K nonn,frac,easy
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Colin Barker_, Nov 14 2013
|
