%I #18 Nov 14 2017 14:13:03
%S 2,5,0,6,1,8,4,1,4,5,5,8,8,7,6,9,2,5,6,2,9,2,9,4,0,9,2,2,3,7,7,8,4,7,
%T 2,7,1,7,7,1,3,9,6,0,5,2,1,3,3,2,1,2,8,3,0,1,4,3,1,6,4,6,4,6,3,8,0,8,
%U 8,8,4,4,6,4,5,4,0,1,5,3,9,5,9,0,1,0,5,0,9,1,6,8,2,8,7,6,4,8,8,0,7,5,9,9,5
%N Decimal expansion of real solution of x^x = 10.
%D Clifford A. Pickover, A Passion for Mathematics, John Wiley & Sons, Inc., 2005, p. 90.
%H Ivan Panchenko, <a href="/A090625/b090625.txt">Table of n, a(n) for n = 1..1000</a>
%F x = log(10)/LambertW(log(10)). - _Alois P. Heinz_, Sep 07 2014
%e 2.5061841455...
%t x=10; RealDigits[Log[x]/ProductLog[Log[x]],10,6! ][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Feb 11 2010 *)
%o (PARI) solve(X=2, 3, X^X-10) \\ _Michel Marcus_, Sep 07 2014
%o (PARI) log(10)/lambertw(log(10)) \\ _G. C. Greubel_, Nov 14 2017
%K nonn,cons,easy
%O 1,1
%A _Klaus Brockhaus_, Feb 02 2004
|