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

1, 15, 2, 2, 1, 2, 1, 2, 1, 2, 5, 2, 83, 1, 4, 1, 3, 1, 1, 3, 2, 1, 10, 1, 1, 12, 3, 1, 3, 1, 2, 2, 1, 1, 39, 1, 25, 21, 1, 1, 2, 10, 37, 2, 1, 1, 28, 6, 6, 8, 4, 2, 1, 1, 2, 3, 2, 3, 1, 1, 11, 2, 25, 1, 1, 1, 2, 2, 3, 1, 1, 2, 4, 10, 2, 1, 8, 1, 2, 1, 9, 6, 1, 2, 2, 2, 1, 2, 1, 2, 5, 3, 10, 1, 14, 1, 1, 5

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A040221 A040220 A146989 * A040222 A040223 A272724

Adjacent sequences: A166028 A166029 A166030 * A166032 A166033 A166034

Keyword

cofr,nonn

Author

Leonhard Kreissig, Oct 05 2009

Status

approved