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 A304022 #12 May 05 2018 05:15:52
%S A304022 3,9,1,2,4,6,8,0,8,4,5,4,3,4,2,7,6,8,3,4,8,1,9,8,4,8,1,6,6,0,2,4,0,5,
%T A304022 4,3,5,0,0,1,1,1,9,1,9,5,3,3,7,9,9,0,5,4,8,0,5,1,8,0,3,5,1,8,1,7,2,8,
%U A304022 5,7,0,7,7,5,6,4,1,4,4,6,5,6,1,7,1,0,7,9,0,2,8,6,7,7,0,3,6,7,1,5,4,9,6,7,2,5,8
%N A304022 Decimal expansion of the solution to (1 - x)*(1 + x)^x = x^x.
%e A304022 0.3912468084543427683481984816602405435...
%t A304022 Take[RealDigits[x /. FindRoot[(1 - x)*(1 + x)^x == x^x, {x, 1/2}, WorkingPrecision -> 120], 10][[1]], 105]
%o A304022 (PARI) solve(x=1/3, 1, (1 - x)*(1 + x)^x - x^x) \\ _Michel Marcus_, May 04 2018
%Y A304022 Cf. A302973, A303069.
%K A304022 nonn,cons
%O A304022 0,1
%A A304022 _Juri-Stepan Gerasimov_, May 04 2018
%E A304022 More digits from _Alois P. Heinz_, May 04 2018