

A091655


Least number k such that the continued fraction expansion of H(k) contains n, where H(k) is the kth 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 * A021979 A021043 A213736
Adjacent sequences: A091652 A091653 A091654 * A091656 A091657 A091658


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Jan 26 2004


STATUS

approved



