|
%I #3 Jul 05 2015 20:02:53
%S 8,8,4,5,1,0,6,1,6,1,6,5,8,5,2,5,3,3,6,8,1,4,9,9,6,4,4,7,9,9,6,8,2,8,
%T 6,9,7,6,4,6,7,5,9,8,7,6,4,7,1,2,8,1,4,1,2,9,4,1,8,5,4,3,1,9,2,6,6,8,
%U 0,3,5,8,1,0,6,4,3,1,7,6,0,8,3,9,1,3,1,8,3,3,7,6,8,0,0,1,7,4,1,6,8,6
%N Decimal expansion of solution to log(x + 1) = cos(x).
%F log(x + 1) = cos(x).
%e 0.884510616165852533681499644799682869764675987647128...
%t RealDigits[ FindRoot[Log[x + 1] == Cos[x], {x, {.5, 1}}, WorkingPrecision -> 120][[1, 2, 1]], 10, 111][[1]]
%K cons,nonn
%O 0,1
%A Denton J. Dailey (djd1497(AT)aol.com), Jan 06 2007
|
