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 A030722 #18 Nov 15 2022 13:54:38
%S A030722 1,3,6,11,16,20,25,36,44,45,53,63,75,88,104,120,140,163,188,216,247,
%T A030722 280,316,354,395,438,483,530,580,633,689,749,811,876,945,1017,1095,
%U A030722 1178,1264,1352,1444,1539,1638,1743,1853,1967,2084,2206,2331,2461,2597,2737
%N A030722 Positions of records in A030717.
%H A030722 Michael De Vlieger, <a href="/A030722/b030722.txt">Table of n, a(n) for n = 1..1000</a>
%t A030722 nn = 120; c[_] = 0; r = k = a[1] = c[1] = 1; {1}~Join~Reap[Do[w = Union@ Array[a, k]; Do[Set[a[j + k], c[w[[j]]]]; If[r < #, Set[r, #]; Sow[j + k]] &[a[j + k]], {j, Length[w]}]; Do[c[a[j + k]]++, {j, Length[w]}]; k += Length[w], {nn}]][[-1, -1]] (* _Michael De Vlieger_, Nov 15 2022 *)
%Y A030722 Cf. A030717, A030721.
%K A030722 nonn
%O A030722 1,2
%A A030722 _Clark Kimberling_
%E A030722 More terms and simpler title from _Sean A. Irvine_, Apr 08 2020