This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A353243 #10 Apr 09 2022 02:24:10 %S A353243 1,2,3,4,10,11,18,27,30,32,43,69,70,264,1409,3027,7471,8946,10576, %T A353243 12595,14034,22849,37124,70083,107868,469850 %N A353243 Indices of records of A070266. %C A353243 The corresponding record values are in A353244. %F A353243 A070266(a(n)) = A353244(n). %t A353243 m = Table[Max[ContinuedFraction[HarmonicNumber[n]]], {n, 1, 10^4}]; Map[FirstPosition[m, #][[1]] &, Union@FoldList[Max, m]] %o A353243 (Python) %o A353243 from itertools import count, islice %o A353243 from fractions import Fraction %o A353243 from sympy.ntheory.continued_fraction import continued_fraction %o A353243 def A353243_gen(): # generator of terms %o A353243 k, c = Fraction(), 0 %o A353243 for n in count(1): %o A353243 k += Fraction(1,n) %o A353243 if c < (m := max(continued_fraction(k))): %o A353243 c = m %o A353243 yield n %o A353243 A353243_list = list(islice(A353243_gen(),10)) # _Chai Wah Wu_, Apr 08 2022 %Y A353243 Cf. A001008, A002805, A070266, A091532, A353244. %K A353243 nonn,more %O A353243 1,2 %A A353243 _Amiram Eldar_, Apr 08 2022