|
%I
%S 25,3,2,1,4,1,11,1,4,1,2,3,50,3,2,1,4,1,11,1,4,1,2,3,50,3,2,1,4,1,11,
%T 1,4,1,2,3,50,3,2,1,4,1,11,1,4,1,2,3,50,3,2,1,4,1,11,1,4,1,2,3,50,3,2,
%U 1,4,1,11,1,4,1,2,3,50,3,2,1,4,1,11,1,4,1,2,3,50,3,2
%N Continued fraction for sqrt(640).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_12">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%F a(n)=(1/792)*{-3019*(n mod 12)+17*[(n+1) mod 12]+17*[(n+2) mod 12]+281*[(n+3) mod 12]-115*[(n+4) mod 12]+743*[(n+5) mod 12]-577*[(n+6) mod 12]+281*[(n+7) mod 12]-115*[(n+8) mod 12]+149*[(n+9) mod 12]+149*[(n+10) mod 12]+3185*[(n+11) mod 12]}-25*[C(2*n,n) mod 2], with n>=0 [From _Paolo P. Lava_, May 15 2009]
%p with(numtheory): Digits := 300: convert(evalf(sqrt(640)),confrac);
%t ContinuedFraction[Sqrt[640],100] (* or *) PadRight[{25},100,{50,3,2,1,4,1,11,1,4,1,2,3}] (* _Harvey P. Dale_, Aug 19 2014 *)
%K nonn,cofr,easy
%O 0,1
%A _N. J. A. Sloane_.
|
