login
A215498
Decimal expansion of root of tanh(x) = log(x).
0
2, 6, 9, 3, 6, 3, 8, 3, 6, 6, 8, 7, 9, 7, 0, 3, 7, 4, 6, 2, 8, 3, 1, 7, 6, 7, 0, 1, 0, 6, 9, 6, 7, 9, 5, 7, 7, 7, 4, 3, 5, 6, 5, 6, 8, 6, 0, 6, 6, 8, 2, 8, 7, 6, 9, 4, 4, 6, 6, 8, 2, 3, 8, 0, 3, 6, 7, 5, 9, 0, 9, 5, 1, 7, 5, 6, 6, 5, 8, 3, 1, 9, 7, 5, 1, 8, 5
OFFSET
1,1
EXAMPLE
2.6936383668797037...
MAPLE
Digits:=120:fsolve(tanh(x)-log(x) =0, x, 1..5);
MATHEMATICA
RealDigits[ FindRoot[Tanh[x] == Log[x], {x, {1, 4} }, WorkingPrecision -> 120] [[1, 4] ]] [[2]]
CROSSREFS
Sequence in context: A195396 A197579 A179275 * A104752 A343745 A183000
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Aug 13 2012
STATUS
approved