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