1,1

Table of n, a(n) for n=1..87.

2.6936383668797037...

Digits:=120:fsolve(tanh(x)-log(x) =0, x, 1..5);

RealDigits[ FindRoot[Tanh[x] == Log[x], {x, {1, 4} }, WorkingPrecision -> 120] [[1, 4] ]] [[2]]

Sequence in context: A195396 A197579 A179275 * A104752 A183000 A170821

Adjacent sequences: A215495 A215496 A215497 * A215499 A215500 A215501

nonn,cons

Michel Lagneau, Aug 13 2012

approved