%I #13 Apr 17 2018 17:19:38
%S 2,9,3,8,6,0,0,1,3,7,8,7,3,9,9,0,3,7,5,0,9,8,3,5,1,6,4,3,5,3,4,4,7,9,
%T 2,5,9,3,5,5,3,9,4,8,9,5,7,6,3,6,7,6,2,6,3,2,4,5,8,0,0,9,6,9,2,0,4,7,
%U 4,0,2,3,2,1,3,4,9,0,1,5,4,1,5,8,2,0,7,8,0,7,3,6,9,2,4,4,4,6,3,7,8,4,8,0
%N Decimal expansion of the solution to (1 + x)*x^x = (1 - x)^x.
%e 0.2938600137873990375098351643534479...
%t Take[RealDigits[x /. FindRoot[(1 + x)*x^x == (1 - x)^x, {x, 1/2}, WorkingPrecision -> 120], 10][[1]], 105] (* _Vaclav Kotesovec_, Apr 17 2018 *)
%o (PARI) solve(x=1/10, 1, (1 + x)*x^x - (1 - x)^x) \\ _Michel Marcus_, Apr 16 2018
%Y Cf. A030798, A300304.
%K nonn,cons
%O 0,1
%A _Juri-Stepan Gerasimov_, Apr 16 2018
%E More digits from _Alois P. Heinz_, Apr 16 2018
|