login
A215482
Decimal expansion of root of x^cosh(x) = cosh(x)^x.
0
2, 0, 3, 5, 2, 0, 5, 7, 0, 9, 9, 8, 0, 9, 0, 6, 5, 3, 7, 1, 4, 5, 9, 8, 8, 2, 0, 8, 1, 8, 0, 0, 1, 0, 7, 3, 3, 0, 6, 5, 6, 3, 6, 4, 9, 8, 2, 8, 9, 5, 5, 0, 0, 5, 2, 8, 7, 4, 2, 1, 0, 6, 8, 0, 7, 9, 1, 5, 8, 3, 8, 1, 1, 8, 3, 2, 8, 8, 1, 0, 0, 0, 4, 8, 2, 4, 2
OFFSET
1,1
EXAMPLE
2.03520570998090653714...
MAPLE
Digits:=105:fsolve(cosh(x)^x-(x^cosh(x)) =0, x, 0..5);
MATHEMATICA
RealDigits[ FindRoot[Cosh[x]^x == x^Cosh[x], {x, {0, 3} }, WorkingPrecision -> 120] [[0, 3] ]] [[2]]
CROSSREFS
Sequence in context: A094126 A293269 A038072 * A161481 A272695 A196503
KEYWORD
nonn,cons
AUTHOR
Michel Lagneau, Aug 12 2012
STATUS
approved