%I A040022
%S A040022 5,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,
%T A040022 3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,
%U A040022 3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10,3,2,3,10
%N A040022 Continued fraction for sqrt(28).
%H A040022 Harry J. Smith, <a href="b040022.txt">Table of n, a(n) for n=0,...,20000</
               a>
%H A040022 G. Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">
               Contfrac</a>
%H A040022 <a href="Sindx_Con.html#confC">Index entries for continued fractions 
               for constants</a>
%F A040022 a(n)=(1/2)*{-2*(n mod 4)+[(n+1) mod 4]+2*[(n+2) mod 4]+5*[(n+3) mod 4]}-5*C(2*n,
               n) mod 2], with n>=0 [From Paolo P. Lava (ppl(AT)spl.at), Jun 09 
               2009]
%e A040022 5.29150262212918118100323150... = 5 + 1/(3 + 1/(2 + 1/(3 + 1/(10 + ...)))) 
               [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 04 2009]
%p A040022 Digits := 100: convert(evalf(sqrt(N)),confrac,90,'cvgts'):
%o A040022 (PARI) { allocatemem(932245000); default(realprecision, 25000); x=contfrac(sqrt(28)); 
               for (n=0, 20000, write("b040022.txt", n, " ", x[n+1])); } [From Harry 
               J. Smith (hjsmithh(AT)sbcglobal.net), Jun 04 2009]
%Y A040022 Cf. A010483 Decimal expansion. [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Jun 04 2009]
%Y A040022 Sequence in context: A114344 A088324 A052038 this_sequence A165100 A159935 
               A165102
%Y A040022 Adjacent sequences: A040019 A040020 A040021 this_sequence A040023 A040024 
               A040025
%K A040022 nonn,cofr,easy
%O A040022 0,1
%A A040022 N. J. A. Sloane (njas(AT)research.att.com).