A016122 Decimal expansion of solution to log_10(x) = x - 4.

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, 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, 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

Offset

1,1

Links

Table of n, a(n) for n=1..100.

Bernard I Pietsch, For more information

Example

4.66924683287774767030699969791369599...

Mathematica

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 *)

Prog

(PARI) solve(x=4, 5, 10^x-10^4*x) \\ Franklin T. Adams-Watters, Apr 15 2006

Crossrefs

Sequence in context: A006890 A104123 A094078 * A247677 A306811 A201775

Adjacent sequences: A016119 A016120 A016121 * A016123 A016124 A016125

Keyword

cons,nonn

Author

N. J. A. Sloane, Bernard I Pietsch (bernard(AT)sonic.net)

Extensions

More terms from Franklin T. Adams-Watters, Apr 15 2006

Status

approved