|
%I #16 Sep 08 2022 08:44:55
%S 1,1,2,5,7,12,535,547,1082,2711,3793,6504,289969,296473,586442,
%T 1469357,2055799,3525156,157162663,160687819,317850482,796388783,
%U 1114239265,1910628048,85181873377,87092501425,172274374802,431641251029,603915625831,1035556876860
%N Denominators of continued fraction convergents to sqrt(510).
%H Vincenzo Librandi, <a href="/A041975/b041975.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,542,0,0,0,0,0,-1).
%F G.f.: -(x^4-x^3+2*x^2+x+1)*(x^6-6*x^3-1) / (x^12-542*x^6+1). - _Colin Barker_, Nov 28 2013
%F a(n) = 542*a(n-6) - a(n-12) for n>11. - _Vincenzo Librandi_, Dec 28 2013
%t Denominator[Convergents[Sqrt[510], 30]] (* _Harvey P. Dale_, Mar 03 2013 *)
%t CoefficientList[Series[-(x^4 - x^3 + 2 x^2 + x + 1) (x^6 - 6 x^3 - 1)/(x^12 - 542 x^6 + 1), {x, 0, 30}], x] (* _Vincenzo Librandi_, Dec 28 2013 *)
%o (Magma) I:=[1,1,2,5,7,12,535,547,1082,2711,3793,6504]; [n le 12 select I[n] else 542*Self(n-6)-Self(n-12): n in [1..40]]; // _Vincenzo Librandi_, Dec 28 2013
%Y Cf. A041974, A040487.
%K nonn,frac,easy
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Colin Barker_, Nov 28 2013
|
