|
%I #16 Dec 27 2023 00:49:11
%S 25,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,
%T 50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,
%U 50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3,50,3,1,6,2,6,1,3
%N Continued fraction for sqrt(638).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 1).
%p with(numtheory): Digits := 300: convert(evalf(sqrt(638)),confrac);
%t ContinuedFraction[Sqrt[638],100] (* or *) PadRight[{25},100,{50,3,1,6,2,6,1,3}] (* _Harvey P. Dale_, Jan 10 2023 *)
%K nonn,cofr,easy
%O 0,1
%A _N. J. A. Sloane_.
|
