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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 26 2004
STATUS
approved