|
%I #17 Dec 27 2023 00:06:15
%S 26,17,2,1,5,8,1,1,25,1,1,8,5,1,2,17,52,17,2,1,5,8,1,1,25,1,1,8,5,1,2,
%T 17,52,17,2,1,5,8,1,1,25,1,1,8,5,1,2,17,52,17,2,1,5,8,1,1,25,1,1,8,5,
%U 1,2,17,52,17,2,1,5,8,1,1,25,1,1,8,5,1,2,17,52,17,2
%N Continued fraction for sqrt(679).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1).
%p with(numtheory): Digits := 300: convert(evalf(sqrt(679)),confrac);
%t ContinuedFraction[Sqrt[679], 90] (* or *) PadRight[{26},90,{52,17,2,1,5,8,1,1,25,1,1,8,5,1,2,17}] (* _Harvey P. Dale_, Jun 04 2017 *)
%K nonn,cofr,easy
%O 0,1
%A _N. J. A. Sloane_.
|
