OFFSET
0,1
EXAMPLE
0.3540457879617583480777961737956436437965777229597272589...
MATHEMATICA
RealDigits[x /. FindRoot[(1 + x)*x^(1 - x) == x^x, {x, 1/2}, WorkingPrecision -> 100]][[1]] (* Vaclav Kotesovec, Apr 29 2018 *)
PROG
(PARI) solve(x=1/3, 1, (1 + x)*x^(1 - x) - x^x) \\ Michel Marcus, Apr 18 2018
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Juri-Stepan Gerasimov, Apr 17 2018
EXTENSIONS
More terms from Michel Marcus, Apr 18 2018
STATUS
approved