%I #12 Oct 02 2017 16:45:59
%S 25,1,1,6,1,3,1,3,2,5,1,16,5,1,1,1,1,2,12,2,1,1,1,1,5,16,1,5,2,3,1,3,
%T 1,6,1,1,50,1,1,6,1,3,1,3,2,5,1,16,5,1,1,1,1,2,12,2,1,1,1,1,5,16,1,5,
%U 2,3,1,3,1,6,1,1,50,1,1,6,1,3,1,3,2,5,1,16,5,1,1,1,1
%N Continued fraction for sqrt(652).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_36">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, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%p with(numtheory): Digits := 300: convert(evalf(sqrt(652)),confrac);
%t ContinuedFraction[Sqrt[652],100] (* or *) PadRight[{25},100,{50,1,1,6,1,3,1,3,2,5,1,16,5,1,1,1,1,2,12,2,1,1,1,1,5,16,1,5,2,3,1,3,1,6,1,1}] (* _Harvey P. Dale_, Oct 02 2017 *)
%K nonn,cofr,easy,less
%O 0,1
%A _N. J. A. Sloane_.
|