OFFSET
1,1
EXAMPLE
5.4444727541545141416855065051707898147240...
MAPLE
Digits:=105: fsolve(x^log(x)-(log(x)^x) =0, x, 0..10);
MATHEMATICA
First@RealDigits[x/.FindRoot[x^Log[x]==Log[x]^x, {x, 5}, WorkingPrecision->100]] (* Sidney Cadot, Feb 26 2023 *)
PROG
(PARI) solve(x=5, 6, x^log(x)-log(x)^x) \\ Charles R Greathouse IV, Aug 26 2017
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Dec 01 2011
STATUS
approved