A353244 Record values of A070266.

1, 2, 5, 12, 13, 50, 61, 68, 198, 1090, 1812, 2362, 32334, 1517757, 4150055, 8850618, 10459960, 34693154, 80385407, 277184250, 316848842, 426258508, 2150821469, 2901738400, 49091889811, 331178405563

Offset

1,2

Comments

The corresponding indices are in A353243.

Links

Table of n, a(n) for n=1..26.

Formula

a(n) = A070266(A353243(n)).

Mathematica

Union @ FoldList[Max, Table[Max[ContinuedFraction[HarmonicNumber[n]]], {n, 1, 10^4}]]

Prog

(Python)
from itertools import count, islice
from fractions import Fraction
from sympy.ntheory.continued_fraction import continued_fraction
def A353244_gen(): # generator of terms
    k, c = Fraction(), 0
    for n in count(1):
        k += Fraction(1, n)
        if c < (m := max(continued_fraction(k))):
            yield (c := m)
A353244_list = list(islice(A353244_gen(), 10)) # Chai Wah Wu, Apr 08 2022

Crossrefs

Cf. A001008, A002805, A070266, A091532, A353243.

Sequence in context: A085227 A324601 A305310 * A039586 A352785 A114217

Adjacent sequences: A353241 A353242 A353243 * A353245 A353246 A353247

Keyword

nonn,more

Author

Amiram Eldar, Apr 08 2022

Status

approved