%I #16 Dec 27 2023 01:24:30
%S 27,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,
%T 27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,
%U 54,27,54,27,54,27,54,27,54,27,54,27,54,27,54,27,54
%N Continued fraction for sqrt(731).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (0, 1).
%p with(numtheory): Digits := 300: convert(evalf(sqrt(731)),confrac);
%t Block[{$MaxExtraPrecision=1000}, ContinuedFraction[Sqrt[731],100]] (* or *) PadRight[{27},100,{54,27}] (* _Harvey P. Dale_, Aug 13 2023 *)
%K nonn,cofr,easy
%O 0,1
%A _N. J. A. Sloane_.