A309211 Decimal expansion of a solution to x = 3*tanh(x).
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, 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, 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
Offset: 1
Examples
2.9847045853578868155597912346...
Programs
-
Maple
Digits := 120 ; fsolve(x=3*tanh(x),x,0..10.) ; # R. J. Mathar, Jul 30 2019
-
Mathematica
RealDigits[x/.FindRoot[x==3Tanh[x],{x,3},WorkingPrecision->120]][[1]] (* Harvey P. Dale, Jul 30 2019 *)
-
PARI
A309211_first(n)={localprec(n\.9+9);digits(solve(x=2.9,3,tanh(x)*3-x)\10^(1-n))} \\ M. F. Hasler, Jan 27 2023
Extensions
More terms from Daniel Suteu, Jul 30 2019
Comments