|
%I #26 Jul 01 2023 20:54:32
%S 4,9,3,7,2,5,9,5,5,7,1,0,9,0,1,5,4,8,8,0,8,0,1,8,7,8,1,7,4,9,5,1,7,9,
%T 5,7,5,2,1,6,5,4,6,2,9,2,2,9,4,3,6,2,2,2,5,2,8,2,2,1,4,6,1,1,2,6,9,8,
%U 4,6,0,1,6,5,9,4,4,4
%N Decimal expansion of the number x defined by x^x + log(x) = 0.
%e 0.49372595571090154880801878174951795752165462922943622252822146112698...
%t RealDigits[x /. FindRoot[Log[x] + x^x, {x, 1.2}, WorkingPrecision -> 3418, MaxIterations -> 1000]][[1]]
%o (PARI) solve(x=.1,1,x^x+log(x)) \\ Grau, with correction from _Rick L. Shepherd_, Jan 01 2014
%K nonn,cons
%O 0,1
%A _José María Grau Ribas_, May 26 2013
%E Offset corrected by _Rick L. Shepherd_, Jan 01 2014
|
