A126599 Decimal expansion of positive root of log(x + 1) = sin(x).

1, 6, 9, 6, 8, 1, 2, 3, 8, 6, 8, 0, 9, 7, 5, 1, 5, 2, 7, 2, 8, 9, 4, 8, 9, 3, 2, 2, 5, 0, 5, 2, 1, 7, 7, 1, 9, 7, 6, 2, 5, 6, 1, 8, 7, 2, 4, 1, 8, 5, 1, 0, 3, 1, 0, 7, 8, 2, 3, 7, 4, 8, 3, 2, 6, 7, 2, 7, 1, 5, 6, 2, 4, 5, 9, 7, 5, 5, 0, 1, 5, 9, 5, 0, 6, 3, 1, 5, 3, 6, 5, 6, 9, 0, 6, 2, 7, 2, 1, 3, 7, 9

Offset

1,2

Links

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

Example

1.6968123868097515272894893225052177197625618724185103...

Mathematica

RealDigits[ FindRoot[ Log[x + 1] == Sin[x], {x, {1.5, 1.8}}, WorkingPrecision -> 120][[1, 2, 1]], 10, 111][[1]]

Prog

(PARI) solve(x=1, 2, log(x+1)-sin(x)) \\ Charles R Greathouse IV, Apr 16 2014

Crossrefs

Sequence in context: A376838 A198144 A154394 * A260230 A159691 A118947

Adjacent sequences: A126596 A126597 A126598 * A126600 A126601 A126602

Keyword

cons,nonn

Author

Denton J. Dailey (djd1497(AT)aol.com), Jan 06 2007

Status

approved