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 A103476 #15 Feb 16 2025 08:32:56
%S A103476 4,3,6,7,7,7,0,9,6,7,0,5,6,0,1,9,1,3,7,8,8,5,3,7,9,9,7,0,1,9,4,5,5,9,
%T A103476 8,6,3,7,8,7,7,5,1,4,1,7,6,9,6,7,1,3,9,3,0,8,4,7,7,7,1,2,2,7,2,3,3,1,
%U A103476 9,4,3,0,1,3,9,2,9,0,2,0,5,3,6,8,7,7,4,8,7,5,2,6,1,4,1,9,5,6,7,8,6,4
%N A103476 Decimal expansion of second inflection point of x^(1/x).
%C A103476 The larger of the two real roots of 1 - 3*x + log(x)*(log(x) + 2*x - 2) = 0. - _Amiram Eldar_, Jun 17 2021
%H A103476 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SteinersProblem.html">Steiner's Problem</a>.
%e A103476 4.36777096...
%t A103476 RealDigits[ x /. FindRoot[D[x^(1/x), {x, 2}] == 0, {x, 4}, WorkingPrecision -> 110], 10, 102] // First (* _Jean-François Alcover_, Feb 07 2013 *)
%Y A103476 Cf. A073229, A093157.
%K A103476 nonn,cons
%O A103476 1,1
%A A103476 _Eric W. Weisstein_, Feb 07 2005