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

Author

Robert G. Wilson v, Jan 26 2004

Keywords

• nonn

Examples

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

Crossrefs

Cf. A055573, A091656.

Programs

Mathematica

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