%I #12 Aug 08 2023 17:11:27
%S 2,6,7,8,5,2,3,4,8,5,8,9,1,2,9,9,5,8,1,3,0,1,1,9,9,0,0,1,0,0,9,9,5,0,
%T 6,1,5,7,7,8,6,9,9,1,7,5,5,6,1,7,3,6,5,7,7,8,6,0,8,7,2,5,0,8,8,2,3,9,
%U 9,0,0,6,9,2,8,6,8,7,8,9,9,6,2,9,4,7,4,8,7,5,1,0,0,7,1,3,8,4,0,9,1,5
%N Decimal expansion of the solution x to x^x = 14.
%e 2.6785234858912995813011990010099506157786992..
%t x=14;RealDigits[Log[x]/ProductLog[Log[x]],10,200][[1]]
%t RealDigits[x/.FindRoot[x^x==14,{x,2},WorkingPrecision->120]][[1]] (* _Harvey P. Dale_, Aug 08 2023 *)
%Y Cf. A030798, A173158, A000038, A173159, A173160, A173161, A173162, A173163, A090625, A186501, A186502, A186503, A344930, A093590.
%K nonn,cons
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 22 2011