OFFSET
0,1
EXAMPLE
0.7271601514124259243044708440095217693545890455645833041425777641752908684323...
MATHEMATICA
RealDigits[x /. FindRoot[1 + 3^x == 5^x, {x, 1}, WorkingPrecision -> 120]][[1]] (* Amiram Eldar, Jun 28 2023 *)
PROG
(PARI) print(c=solve(x=0, 1, 1+3^x-5^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, Oct 31 2019
STATUS
approved