OFFSET
0,1
EXAMPLE
0.489536321199649488689875316822650189403586515771912127846436678619255628...
MATHEMATICA
RealDigits[x /. FindRoot[1 + 2^x == 6^x, {x, 1}, WorkingPrecision -> 120]][[1]] (* Amiram Eldar, Jun 28 2023 *)
PROG
(PARI) print(c=solve(x=0, 1, 1+2^x-6^x)); digits(c\.1^default(realprecision))[^-1] \\ [^-1] to discard possibly incorrect last digit. Use e.g. \p999 to get more digits. - M. F. Hasler, Oct 31 2019
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
M. F. Hasler, Nov 11 2019
STATUS
approved