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 A329458 #54 Jul 14 2020 09:11:09
%S A329458 2,4,1,1,7,3,9,9,3,0,5,6,0,5,5,9,2,8,1,1,4,5,1,8,9,1,9,8,0,2,4,4,6,4,
%T A329458 1,3,2,6,1,1,7,7,3,5,6,0,3,4,0,4,6,3,7,0,1,5,3,5,1,5,4,6,7,1,3,8,6,0,
%U A329458 7,0,7,9,9,6,1,1,9,9,0,2,9
%N A329458 Decimal expansion of x such that x^x * log(x) - x^x + 1 = 0, x > 1.
%C A329458 Equivalent to the coordinates of the self-intersection point of the graph y^x - x^y = y - x, where x, y > 1.
%F A329458 x^x * log(x) - x^x + 1 = 0; x != 1.
%F A329458 y^x - x^y = y - x; y = x; x != 1.
%F A329458 x = exp(1-x^(-x)); x > 1. - _Rick Novile_, Jul 14 2020
%e A329458 x = 2.41173993056055928114518919802446413261177356034046370153515467138607...
%t A329458 FindRoot[x^x Log[x] - x^x + 1 == 0, {x, 2.40737, 2.41474}, WorkingPrecision -> 1000]
%o A329458 (PARI) solve(x=2, 3, x^x * log(x) - x^x + 1) \\ _Michel Marcus_, Nov 16 2019
%o A329458 (PARI) solve(x=2, 3, x - exp(1-1/x^x)) \\ _Michel Marcus_, Jul 14 2020
%Y A329458 Cf. A073226 (e^e), A194622, A194623, A194556, A194557.
%K A329458 nonn,cons
%O A329458 1,1
%A A329458 _Rick Novile_, Nov 16 2019