A329337 Continued fraction of A328907 = 0.6009668516..., solution to 1 + 3^x = 6^x.
0, 1, 1, 1, 1, 40, 1, 3, 2, 1, 2, 23, 1, 13, 1, 8, 1, 15, 2, 3, 103, 4, 10, 4, 2, 2, 2, 1, 1, 84, 1, 4, 1, 3, 1, 1, 5, 1, 7, 23, 8, 1, 8, 24, 1, 1, 2, 12, 39, 14, 19, 3, 4, 8, 3, 2, 1, 4, 1, 8, 1, 1, 1, 2, 1, 10, 1, 35, 1, 10, 2, 2, 2, 1, 1, 15, 2, 3, 1, 4, 7, 5, 1, 9, 1, 1, 1, 1, 2, 3, 3, 2, 1, 4, 54, 4, 1, 3, 2, 1, 1, 1, 1, 4, 22, 1, 4, 3, 1, 1, 1, 2, 6, 1, 1, 4, 1, 8, 1, 20
Offset: 0
Examples
0.6009668516... = 0 + 1/(1 + 1/(1 + 1/(1 + 1/(1 + 1/(40 + 1/(1 + 1/(3 + ...)))))))
Crossrefs
Programs
-
Mathematica
ContinuedFraction[x/.FindRoot[1+3^x==6^x,{x,1},WorkingPrecision->150]] (* Harvey P. Dale, Jun 13 2022 *)
-
PARI
contfrac(c=solve(x=0,1, 1+3^x-6^x))[^-1] \\ discarding possibly incorrect last term. Use e.g. \p999 to get more terms. - M. F. Hasler, Oct 31 2019
Comments