Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A091532
Where the number of terms in simple continued fraction for H(j) exceeds all H(i), j>i and H(k) is the k-th harmonic number.
3
1, 2, 3, 5, 7, 8, 9, 13, 16, 17, 19, 23, 25, 26, 28, 29, 35, 36, 43, 45, 48, 49, 54, 57, 62, 72, 73, 79, 88, 90, 91, 99, 103, 108, 110, 113, 115, 116, 118, 125, 128, 148, 149, 157, 163, 168, 171, 172, 184, 193, 199, 205, 209, 234, 240, 243, 259, 265, 269, 270, 281, 283
OFFSET
1,2
COMMENTS
Where A055573 increases.
LINKS
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