OFFSET
1,1
EXAMPLE
2.6785234858912995813011990010099506157786992..
MATHEMATICA
x=14; RealDigits[Log[x]/ProductLog[Log[x]], 10, 200][[1]]
RealDigits[x/.FindRoot[x^x==14, {x, 2}, WorkingPrecision->120]][[1]] (* Harvey P. Dale, Aug 08 2023 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 22 2011
STATUS
approved