A166032 Continued fraction expansion for x so that the hyperbolic sine integral of x is 1.

0, 1, 19, 2, 1, 2, 6, 14, 2, 3, 4, 1, 2, 2, 5, 2, 1, 3, 7, 2, 1, 6, 1, 5, 6, 1, 3, 4, 1, 1, 1, 1, 1, 1, 8, 1, 158, 2, 3, 1, 1, 1, 6, 5, 1, 1, 5, 8, 2, 10, 1, 3, 1, 2, 3, 1, 2, 2, 1, 3, 3, 2, 3, 1, 18, 2, 2, 1, 4, 1, 4, 5, 12, 1, 11, 6, 15, 2, 1, 1, 1, 1, 1, 1, 8, 1, 21, 1, 1, 1, 4, 1, 77, 3, 4, 18, 7, 4, 1

Offset

1,3

Links

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

Mathematica

ContinuedFraction[FindRoot[SinhIntegral[x] == 1, {x, 1}, WorkingPrecision -> 200][[1]][[2]]]

Crossrefs

Sequence in context: A326475 A040356 A040355 * A040354 A040357 A040358

Adjacent sequences: A166029 A166030 A166031 * A166033 A166034 A166035

Keyword

cofr,nonn

Author

Leonhard Kreissig, Oct 05 2009

Status

approved