Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A040073
Continued fraction for sqrt(83).
3
9, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9, 18, 9
OFFSET
0,1
EXAMPLE
9.1104335791442988819456261... = 9 + 1/(9 + 1/(18 + 1/(9 + 1/(18 + ...)))). - Harry J. Smith, Jun 10 2009
MAPLE
Digits := 100: convert(evalf(sqrt(N)), confrac, 90, 'cvgts'):
MATHEMATICA
ContinuedFraction[Sqrt[83], 300] (* Vladimir Joseph Stephan Orlovsky, Mar 09 2011 *)
LinearRecurrence[{0, 1}, {9, 9, 18}, 70] (* or *) PadRight[{9}, 70, {18, 9}] (* Harvey P. Dale, Jan 25 2018 *)
PROG
(PARI) { allocatemem(932245000); default(realprecision, 45000); x=contfrac(sqrt(83)); for (n=0, 20000, write("b040073.txt", n, " ", x[n+1])); } \\ Harry J. Smith, Jun 10 2009
CROSSREFS
Cf. A010534 Decimal expansion. - Harry J. Smith, Jun 10 2009
Sequence in context: A168390 A333151 A321659 * A003886 A065999 A168419
KEYWORD
nonn,cofr,easy
STATUS
approved