OFFSET
1,1
COMMENTS
The larger of the two real roots of 1 - 3*x + log(x)*(log(x) + 2*x - 2) = 0. - Amiram Eldar, Jun 17 2021
LINKS
Eric Weisstein's World of Mathematics, Steiner's Problem.
EXAMPLE
4.36777096...
MATHEMATICA
RealDigits[ x /. FindRoot[D[x^(1/x), {x, 2}] == 0, {x, 4}, WorkingPrecision -> 110], 10, 102] // First (* Jean-François Alcover, Feb 07 2013 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Feb 07 2005
STATUS
approved