A040628 - OEIS

%I #18 Dec 27 2023 00:06:02

%S 25,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1,50,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1,

%T 50,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1,50,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1,

%U 50,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1,50,1,1,2,1,9,1,1

%N Continued fraction for sqrt(654).

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

%H <a href="/index/Rec#order_16">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,1).

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

%t ContinuedFraction[Sqrt[654],100] (* or *) PadRight[{25},100,{50,1,1,2,1,9,1,1,16,1,1,9,1,2,1,1}] (* _Harvey P. Dale_, May 15 2015 *)

%K nonn,cofr,easy,less

%O 0,1

%A _N. J. A. Sloane_.