A016509 Continued fraction for log(81).
4, 2, 1, 1, 6, 1, 1, 1, 1, 5, 1, 17, 1, 7, 2, 1, 2, 4, 4, 3, 1, 7, 1, 1, 4, 2, 1, 8, 2, 2, 5, 2, 1, 2, 1, 5, 1, 11, 5, 1, 3, 55, 1, 1, 1, 1, 9, 613, 1, 3, 2, 1, 1, 3, 1, 1, 1, 1, 2, 3, 1, 18, 1, 10, 1, 2, 1, 23, 5, 2, 4, 1, 1, 4, 1, 2, 1, 2
Offset: 1
Examples
4.394449154672438765580980947... = 4 + 1/(2 + 1/(1 + 1/(1 + 1/(6 + ...)))). - _Harry J. Smith_, May 24 2009
Links
- Harry J. Smith, Table of n, a(n) for n = 1..20000
Crossrefs
Cf. A016704 Decimal expansion. - Harry J. Smith, May 24 2009
Programs
-
Mathematica
ContinuedFraction[Log[81],100] (* Harvey P. Dale, Oct 05 2012 *)
-
PARI
{ allocatemem(932245000); default(realprecision, 21000); x=contfrac(log(81)); for (n=1, 20000, write("b016509.txt", n, " ", x[n])); } \\ Harry J. Smith, May 24 2009