A126599 - OEIS

%I #3 Apr 16 2014 09:00:34

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

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

%U 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

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

%e 1.6968123868097515272894893225052177197625618724185103...

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

%o (PARI) solve(x=1,2,log(x+1)-sin(x)) \\ _Charles R Greathouse IV_, Apr 16 2014

%K cons,nonn

%O 1,2

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