OFFSET
1,2
COMMENTS
Where A055573 increases.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..4000
MATHEMATICA
t = Table[ Length[ ContinuedFraction[ HarmonicNumber[n]]], {n, 1, 299}]; a = {1}; Do[ If[ t[[n]] > t[[a[[ -1]]]], AppendTo[a, n]], {n, 1, 299}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 19 2004
STATUS
approved