%I
%S 2,9,8,4,7,0,4,5,8,5,3,5,7,8,8,6,8,1,5,5,5,9,7,9,1,2,3,4,6,1,5,6,4,3,
%T 1,6,4,4,8,5,3,9,7,0,6,9,1,2,3,8,4,4,2,6,0,4,9,7,0,6,1,5,6,9,4,0,9,9,
%U 8,0,5,7,3,3,3,9,9,6,7,9,4,2,0,6,8,3,3,9,7,9,3,3,8,3,1,7,9,4,4,5,6,4,2,8,5,8
%N Decimal expansion of a solution to x = 3*tanh(x).
%e 2.9847045853578868155597912346...
%p Digits := 120 ; fsolve(x=3*tanh(x),x,0..10.) ; # _R. J. Mathar_, Jul 30, 2019
%t RealDigits[x/.FindRoot[x==3Tanh[x],{x,3},WorkingPrecision>120]][[1]] (* _Harvey P. Dale_, Jul 30 2019 *)
%Y Cf. A309207 (continued fraction expansion), A309208.
%K nonn,cons
%O 1,1
%A _N. J. A. Sloane_, Jul 30 2019
%E More terms from _Daniel Suteu_, Jul 30 2019
