A091655 Least number k such that the continued fraction expansion of H(k) contains n, where H(k) is the k-th Harmonic number.

2, 5, 6, 3, 11, 8, 5, 12, 30, 17, 4, 10, 17, 12, 31, 15, 25, 46, 63, 66, 51, 35, 30, 48, 46, 44, 31, 39, 21, 42, 53, 14, 44, 45, 53, 15, 70, 28, 78, 87, 131, 74, 11, 108, 52, 75, 71, 50, 80, 78, 83, 44, 73, 18, 52, 73, 58, 142, 86, 77, 27, 138, 148, 84, 144, 81, 114, 73, 139, 132

Offset

1,1

Links

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

Example

a(15) = 12 because CF( H(12)) = 3 + [9, 1, 2, 4, 1, 1, 1, 15, 4], so 15 is present.

Mathematica

f[n_] := Block[{k = 1}, While[ Position[ ContinuedFraction[ HarmonicNumber[k]], n] == {}, k++ ]; k]; Table[ f[n], {n, 1, 77}]

Crossrefs

Cf. A055573, A091656.

Sequence in context: A062825 A154925 A154962 * A362977 A353604 A021979

Adjacent sequences: A091652 A091653 A091654 * A091656 A091657 A091658

Keyword

nonn

Author

Robert G. Wilson v, Jan 26 2004

Status

approved