|
%I #11 Jun 25 2021 06:19:36
%S 2,6,3,9,2,4,9,5,1,3,8,9,8,5,5,3,1,9,0,8,0,8,9,9,4,9,8,3,5,3,6,6,2,9,
%T 6,0,7,8,4,2,0,9,6,8,4,5,1,7,5,5,5,6,4,0,9,7,5,6,2,9,1,2,7,4,6,4,4,9,
%U 3,5,1,1,0,8,0,3,8,3,9,9,4,1,7,7,7,4,1,0,8,8,2,4,9,9,9,7,4,7,4,3,4,4,1,9,7
%N Decimal expansion of the larger of the two real fixed points of the sinhc function.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SinhcFunction.html">Sinhc Function</a>.
%e 2.6392495138985531908...
%t RealDigits[x /. FindRoot[Sinh[x] - x^2, {x, 3}, WorkingPrecision -> 120], 10, 100][[1]] (* _Amiram Eldar_, Jun 25 2021 *)
%o (PARI) solve(x=2, 3, sinh(x)/x - x) \\ _Michel Marcus_, Jun 25 2021
%Y Cf. A133916.
%K nonn,cons
%O 1,1
%A _Eric W. Weisstein_, Sep 28 2007
|
