A040655 - OEIS

%I #16 Dec 27 2023 01:00:31

%S 26,8,1,2,5,2,5,2,1,8,52,8,1,2,5,2,5,2,1,8,52,8,1,2,5,2,5,2,1,8,52,8,

%T 1,2,5,2,5,2,1,8,52,8,1,2,5,2,5,2,1,8,52,8,1,2,5,2,5,2,1,8,52,8,1,2,5,

%U 2,5,2,1,8,52,8,1,2,5,2,5,2,1,8,52,8,1,2,5,2,5,2,1,8

%N Continued fraction for sqrt(682).

%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>

%H <a href="/index/Rec#order_10">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 1).

%p with(numtheory): Digits := 300: convert(evalf(sqrt(682)),confrac);

%t ContinuedFraction[Sqrt[682],100] (* or *) PadRight[{26},100,{52,8,1,2,5,2,5,2,1,8}] (* _Harvey P. Dale_, Jun 12 2021 *)

%K nonn,cofr,easy

%O 0,1

%A _N. J. A. Sloane_.