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 A374232 #7 Jul 02 2024 02:43:01
%S A374232 1,2,3,14,19,46,94,151,211,379,526,694,919,1324,1759,2011,2326,3691,
%T A374232 4174,5086,6451,7606,8254,10294,10651,13126,17599,18979,19231,21319,
%U A374232 30319,31606,32971,34654,42379,46006,48799,58774,76651,78094,82471,85999,90931,101599
%N A374232 Indices of records in A028832.
%H A374232 Amiram Eldar, <a href="/A374232/b374232.txt">Table of n, a(n) for n = 1..100</a>
%t A374232 s[n_] := If[IntegerQ@ Sqrt[n], 0, Length @ DeleteDuplicates[ContinuedFraction[Sqrt[n]][[2]]]];
%t A374232 seq[kmax_] := Module[{smax = -1, s1, sq = {}}, Do[If[(s1 = s[k]) > smax, smax = s1; AppendTo[sq, k]], {k, 1, kmax}]; sq]; seq[10^5]
%Y A374232 Cf. A013645, A028832.
%K A374232 nonn
%O A374232 1,2
%A A374232 _Amiram Eldar_, Jul 01 2024