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