|
%I
%S 21,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,
%T 9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,
%U 42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1,42,1,9,1
%N Continued fraction for sqrt(480).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 1).
%F a(n)=(1/24)*{-193*(n mod 4)+101*[(n+1) mod 4]+5*[(n+2) mod 4]+299*[(n+3) mod 4]}-21*[C(2*n,n) mod 2], with n>=0 [From _Paolo P. Lava_, May 13 2009]
%p with(numtheory): Digits := 300: convert(evalf(sqrt(480)),confrac);
%t ContinuedFraction[Sqrt[480],100] (* or *) PadRight[{21},100,{42,1,9,1}] (* _Harvey P. Dale_, Nov 17 2014 *)
%K nonn,cofr,easy,less
%O 0,1
%A _N. J. A. Sloane_.
|
