A016477 Continued fraction for log(49).
3, 1, 8, 4, 9, 1, 23, 1, 3, 20, 1, 1, 16, 1, 2, 2, 5, 4, 1, 1, 4, 1, 2, 2, 1, 3, 1, 1, 1, 1, 2, 1, 5, 5, 1, 1, 3, 1, 11, 1, 2, 3, 2, 1, 3, 4, 1, 1, 1, 11, 2, 1, 3, 2, 1, 1, 1, 2, 4, 1, 1, 3, 2, 1, 9, 1, 1, 5, 1, 1, 1, 5, 4, 3, 6, 4, 1, 2, 2
Offset: 1
Examples
3.891820298110626610210705486... = 3 + 1/(1 + 1/(8 + 1/(4 + 1/(9 + ...)))). - _Harry J. Smith_, May 21 2009
Links
- Harry J. Smith, Table of n, a(n) for n = 1..20000
Crossrefs
Cf. A016672 Decimal expansion. - Harry J. Smith, May 21 2009
Programs
-
Mathematica
ContinuedFraction[Log[49],90] (* Harvey P. Dale, Mar 14 2014 *)
-
PARI
{ allocatemem(932245000); default(realprecision, 21000); x=contfrac(log(49)); for (n=1, 20000, write("b016477.txt", n, " ", x[n])); } \\ Harry J. Smith, May 21 2009