%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