A215482 Decimal expansion of root of x^cosh(x) = cosh(x)^x.

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

Links

Table of n, a(n) for n=1..87.

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

Adjacent sequences: A215479 A215480 A215481 * A215483 A215484 A215485

Keyword

nonn,cons

Author

Michel Lagneau, Aug 12 2012

Status

approved