|
%I #12 Mar 10 2017 14:34:21
%S 25,1,1,4,7,12,1,1,1,3,3,1,1,1,12,7,4,1,1,50,1,1,4,7,12,1,1,1,3,3,1,1,
%T 1,12,7,4,1,1,50,1,1,4,7,12,1,1,1,3,3,1,1,1,12,7,4,1,1,50,1,1,4,7,12,
%U 1,1,1,3,3,1,1,1,12,7,4,1,1,50,1,1,4,7,12,1,1,1,3,3
%N Continued fraction for sqrt(653).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_19">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, 1).
%p with(numtheory): Digits := 300: convert(evalf(sqrt(653)),confrac);
%t ContinuedFraction[Sqrt[653],100] (* or *) PadRight[{25},100,{50,1,1,4,7,12,1,1,1,3,3,1,1,1,12,7,4,1,1}] (* _Harvey P. Dale_, Jan 01 2016 *)
%K nonn,cofr,easy,less
%O 0,1
%A _N. J. A. Sloane_.
|
