A166030 Continued fraction expansion for the positive x so that the harmonic number of x is 2

3, 1, 1, 1, 3, 3, 3, 3, 6, 4, 1, 14, 6, 1, 1, 1, 1, 2, 1, 9, 1, 4, 1, 1, 3, 2, 4, 1, 137, 1, 4, 2, 5, 1, 11, 1, 1, 1, 1, 41, 4, 1, 1, 2, 2, 1, 22, 1, 2, 4, 22, 1, 1, 9, 4, 1, 13, 1, 3, 2, 5, 1, 12, 1, 3, 1, 22, 1, 1, 5, 1, 1, 8, 1, 1, 3, 2, 3, 3, 109, 27, 1, 1, 4, 2, 2, 3, 1, 15, 1, 1, 1, 4, 1, 10, 1, 45, 1

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A180683 A365331 A214635 * A351149 A191523 A132890

Adjacent sequences: A166027 A166028 A166029 * A166031 A166032 A166033

Keyword

cofr,nonn

Author

Leonhard Kreissig, Oct 05 2009

Status

approved