%I
%S 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,
%T 44,31,39,21,42,53,14,44,45,53,15,70,28,78,87,131,74,11,108,52,75,71,
%U 50,80,78,83,44,73,18,52,73,58,142,86,77,27,138,148,84,144,81,114,73,139,132
%N Least number k such that the continued fraction expansion of H(k) contains n, where H(k) is the kth Harmonic number.
%e a(15) = 12 because CF( H(12)) = 3 + [9, 1, 2, 4, 1, 1, 1, 15, 4], so 15 is present.
%t f[n_] := Block[{k = 1}, While[ Position[ ContinuedFraction[ HarmonicNumber[k]], n] == {}, k++ ]; k]; Table[ f[n], {n, 1, 77}]
%Y Cf. A055573, A091656.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 26 2004
