OFFSET
0,1
EXAMPLE
0.2938600137873990375098351643534479...
MATHEMATICA
Take[RealDigits[x /. FindRoot[(1 + x)*x^x == (1 - x)^x, {x, 1/2}, WorkingPrecision -> 120], 10][[1]], 105] (* Vaclav Kotesovec, Apr 17 2018 *)
PROG
(PARI) solve(x=1/10, 1, (1 + x)*x^x - (1 - x)^x) \\ Michel Marcus, Apr 16 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Juri-Stepan Gerasimov, Apr 16 2018
EXTENSIONS
More digits from Alois P. Heinz, Apr 16 2018
STATUS
approved