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.

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

Author

Robert G. Wilson v, Jan 19 2004

Keywords

• nonn

Comments

Where A055573 increases.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..4000

Crossrefs

Cf. A001008, A002805, A055573.

Programs

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