|
%I #24 Sep 08 2022 08:44:54
%S 1,5,6,11,61,1353,6826,8179,15005,83204,1845493,9310669,11156162,
%T 20466831,113490317,2517253805,12699759342,15217013147,27916772489,
%U 154800875592,3433536035513,17322481053157,20756017088670,38078498141827,211148507797805
%N Denominators of continued fraction convergents to sqrt(125).
%C The a(n) terms of this sequence can be constructed with the terms of sequence A049666. For the terms of the periodical sequence of the continued fraction for sqrt(125) see A010186. We observe that its period is five. - _Johannes W. Meijer_, Jun 12 2010
%H Vincenzo Librandi, <a href="/A041227/b041227.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,1364,0,0,0,0,1).
%F a(5*n) = A049666(3*n+1), a(5*n+1) = (A049666(3*n+2) - A049666(3*n+1))/2, a(5*n+2) = (A049666(3*n+2)+A049666(3*n+1))/2, a(5*n+3):= A049666(3*n+2) and a(5*n+4) = A049666(3*n+3)/2. - _Johannes W. Meijer_, Jun 12 2010
%F G.f.: -(x^8 -5*x^7 +6*x^6 -11*x^5 +61*x^4 +11*x^3 +6*x^2 +5*x +1) / ((x^2 +4*x -1)*(x^4 -7*x^3 +19*x^2 -3*x +1)*(x^4 +3*x^3 +19*x^2 +7*x +1)). - _Colin Barker_, Nov 12 2013
%F a(n) = 1364*a(n-5) + a(n-10). - _Vincenzo Librandi_, Dec 13 2013
%t Table[Denominator[FromContinuedFraction[ContinuedFraction[Sqrt[125], n]]], {n, 1, 50}] (* _Vladimir Joseph Stephan Orlovsky_, Jun 23 2011 *)
%t Denominator[Convergents[Sqrt[125], 30]] (* _Vincenzo Librandi_, Dec 13 2013 *)
%t LinearRecurrence[{0,0,0,0,1364,0,0,0,0,1},{1,5,6,11,61,1353,6826,8179,15005,83204},30] (* _Harvey P. Dale_, Apr 29 2022 *)
%o (Magma) I:=[1, 5, 6, 11, 61, 1353, 6826, 8179, 15005, 83204]; [n le 10 select I[n] else 1364*Self(n-5)+Self(n-10): n in [1..40]]; // _Vincenzo Librandi_, Dec 13 2013
%Y Cf. A041226, A010186, A041019, A041047, A041091, A041151, A041227, A041319, A041427, A041551.
%K nonn,frac,easy
%O 0,2
%A _N. J. A. Sloane_.
|
