cp's OEIS Frontend

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.

A353243 Indices of records of A070266.

This page as a plain text file.
%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