OFFSET
0,1
EXAMPLE
0.998621338270695823852258...
MATHEMATICA
RealDigits[x/.FindRoot[Cos[x]-Cosh[x]+1==0, {x, 1}, WorkingPrecision-> 120]] [[1]] (* Harvey P. Dale, Dec 04 2018 *)
PROG
(PARI) solve(x=0, 1, cos(x) - cosh(x) + 1)
CROSSREFS
KEYWORD
cons,nonn
AUTHOR
Iain Fox, May 04 2018
STATUS
approved