A344930 - OEIS

%I #22 Apr 18 2022 15:27:59

%S 2,7,1,3,1,6,3,6,0,4,0,0,4,2,3,9,2,0,9,5,7,6,4,0,1,2,7,6,8,2,8,5,0,9,

%T 3,7,1,8,7,8,1,8,2,4,9,9,6,7,1,4,5,1,6,0,6,7,3,1,6,3,9,5,1,8,1,4,1,7,

%U 5,7,1,4,3,9,6,2,9,0,5,2,3,9,8,1,5,1,1,5,1

%N Decimal expansion of the real solution to x^x = 15.

%C 2.7131636040042392095764012768285093718781...

%F Equals log(15)/W(log(15)), where W(z) is the Lambert W Function.

%t RealDigits[Log[15]/ProductLog[Log[15]], 10, 100][[1]] (* _Amiram Eldar_, Jun 02 2021 *)

%t RealDigits[x/.FindRoot[x^x==15,{x,2.7},WorkingPrecision->120],10,120][[1]] (* _Harvey P. Dale_, Apr 18 2022 *)

%Y Cf. A030798, A173158, A000038, A173159, A173160, A173161, A173162, A173163, A090625, A186501, A186502, A186503, A186504, A093590.

%K nonn,cons

%O 1,1

%A _Christoph B. Kassir_, Jun 02 2021