%I #15 Jul 10 2021 02:57:53
%S 4,6,6,9,2,4,6,8,3,2,8,7,7,7,4,7,6,7,0,3,0,6,9,9,9,6,9,7,9,1,3,6,9,5,
%T 9,9,1,1,1,3,0,9,0,4,2,0,1,9,1,2,6,0,1,9,5,1,8,7,7,6,2,8,6,6,0,6,3,0,
%U 9,3,6,4,0,3,1,2,1,7,0,5,2,8,2,4,4,3,2,1,1,9,1,7,6,9,7,9,8,2,4,0
%N Decimal expansion of solution to log_10(x) = x - 4.
%H Bernard I Pietsch, <a href="http://www.sonic.net/bernard/">For more information</a>
%e 4.66924683287774767030699969791369599...
%t digits = 100; x /. FindRoot[ Log[10, x] == x-4, {x, 4}, WorkingPrecision -> digits+5] // RealDigits[#, 10, digits]& // First (* _Jean-François Alcover_, Mar 05 2013 *)
%o (PARI) solve(x=4,5,10^x-10^4*x) \\ _Franklin T. Adams-Watters_, Apr 15 2006
%K cons,nonn
%O 1,1
%A _N. J. A. Sloane_, Bernard I Pietsch (bernard(AT)sonic.net)
%E More terms from _Franklin T. Adams-Watters_, Apr 15 2006