OFFSET
1,1
COMMENTS
The second root is 7.390369571112932...
The third root is 10.59483666075098025...
EXAMPLE
4.095461605909919312...
MAPLE
Digits:=120:fsolve(tan(x)-log(x) =0, x, 1..5);
MATHEMATICA
RealDigits[ FindRoot[Tan[x] == Log[x], {x, {3, 5} }, WorkingPrecision -> 120] [[3, 5] ]] [[2]]
PROG
(PARI) solve(x=4, 4.1, tan(x)-log(x)) \\ Charles R Greathouse IV, Apr 16 2014
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Aug 13 2012
STATUS
approved