login
A091655
Least number k such that the continued fraction expansion of H(k) contains n, where H(k) is the k-th Harmonic number.
1
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
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
Sequence in context: A062825 A154925 A154962 * A362977 A353604 A021979
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 26 2004
STATUS
approved