|
%I #19 Dec 26 2023 07:50:28
%S 30,1,7,1,5,3,2,6,2,3,5,1,7,1,60,1,7,1,5,3,2,6,2,3,5,1,7,1,60,1,7,1,5,
%T 3,2,6,2,3,5,1,7,1,60,1,7,1,5,3,2,6,2,3,5,1,7,1,60,1,7,1,5,3,2,6,2,3,
%U 5,1,7,1,60,1,7,1,5,3,2,6,2,3,5,1,7,1,60,1,7,1,5,3
%N Continued fraction for sqrt(954).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</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,0,0,0,0,1).
%F G.f.: -(x^2 +1)*(30*x^12 +x^11 -23*x^10 +28*x^8 +3*x^7 -26*x^6 +3*x^5 +28*x^4 -23*x^2 +x +30)/((x -1)*(x +1)*(x^6 -x^5 +x^4 -x^3 +x^2 -x +1)*(x^6 +x^5 +x^4 +x^3 +x^2 +x +1)). [_Colin Barker_, Aug 11 2012]
%p with(numtheory): Digits := 300: convert(evalf(sqrt(954)),confrac);
%t ContinuedFraction[Sqrt[954],100] (* or *) PadRight[{30},100,{60,1,7,1,5,3,2,6,2,3,5,1,7,1}] (* _Harvey P. Dale_, Mar 05 2023 *)
%K nonn,cofr,easy
%O 0,1
%A _N. J. A. Sloane_.
|
