A126598 - OEIS

%I #5 Oct 29 2021 11:18:53

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

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

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

%N Decimal expansion of solution to log(x) = cos(x).

%e 1.30296400121601255253211430697335802538621997810467...

%t RealDigits[ FindRoot[ Log[x] == Cos[x], {x, {2, 3}}, WorkingPrecision -> 120][[1, 2, 1]], 10, 111][[1]]

%o (PARI) solve(x=1,2,log(x)-cos(x)) \\ _Charles R Greathouse IV_, Oct 29 2021

%Y Cf. A126586.

%K cons,nonn

%O 1,2

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