|
%I #7 Apr 16 2014 08:51:53
%S 4,0,9,5,4,6,1,6,0,5,9,0,9,9,1,9,3,1,2,5,3,9,0,6,2,0,9,3,1,0,7,7,3,1,
%T 8,0,6,0,5,0,0,6,6,3,9,0,8,7,8,5,4,9,4,1,6,9,2,4,3,4,3,5,9,7,2,9,7,9,
%U 2,5,4,7,1,0,8,9,7,2,5,7,8,9,5,3,7,4,7
%N Decimal expansion of the smallest root of tan(x) = log(x).
%C The second root is 7.390369571112932...
%C The third root is 10.59483666075098025...
%e 4.095461605909919312...
%p Digits:=120:fsolve(tan(x)-log(x) =0, x, 1..5);
%t RealDigits[ FindRoot[Tan[x] == Log[x], {x, {3,5} }, WorkingPrecision -> 120] [[3, 5] ]] [[2]]
%o (PARI) solve(x=4,4.1,tan(x)-log(x)) \\ _Charles R Greathouse IV_, Apr 16 2014
%K nonn,cons
%O 1,1
%A _Michel Lagneau_, Aug 13 2012
|
