OFFSET
0,6
EXAMPLE
0.6009668516... = 0 + 1/(1 + 1/(1 + 1/(1 + 1/(1 + 1/(40 + 1/(1 + 1/(3 + ...)))))))
MATHEMATICA
ContinuedFraction[x/.FindRoot[1+3^x==6^x, {x, 1}, WorkingPrecision->150]] (* Harvey P. Dale, Jun 13 2022 *)
PROG
(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
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
M. F. Hasler, Nov 11 2019
STATUS
approved