This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A302973 #13 Apr 17 2018 17:19:38
%S A302973 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 A302973 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 A302973 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 A302973 Decimal expansion of the solution to (1 + x)*x^x = (1 - x)^x.
%e A302973 0.2938600137873990375098351643534479...
%t A302973 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 A302973 (PARI) solve(x=1/10, 1, (1 + x)*x^x - (1 - x)^x) \\ _Michel Marcus_, Apr 16 2018
%Y A302973 Cf. A030798, A300304.
%K A302973 nonn,cons
%O A302973 0,1
%A A302973 _Juri-Stepan Gerasimov_, Apr 16 2018
%E A302973 More digits from _Alois P. Heinz_, Apr 16 2018