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 A380076 #6 Jan 11 2025 18:47:31
%S A380076 1,2,3,4,6,7,8,9,10,11,17,18,19,20,21,22,23,24,25,26,27,28,29,30,42,
%T A380076 43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,
%U A380076 66,67,68,69,70,71,72,105,106,107,108,109,110,111,112,113,114
%N A380076 Indices of records in A379899.
%H A380076 Michael De Vlieger, <a href="/A380076/b380076.txt">Table of n, a(n) for n = 1..10000</a>
%t A380076 nn = 120; c[_] := True; r = j = 2; s = 4; c[2] = False;
%t A380076 {1}~Join~Reap[Do[m = j + s;
%t A380076 While[k = SelectFirst[FactorInteger[m][[All, 1]], c];
%t A380076 ! IntegerQ[k], m += s];
%t A380076 c[k] = False; j = k;
%t A380076 If[k > r, r = k; Sow[n]], {n, nn}] ][[-1, 1]] (* _Michael De Vlieger_, Jan 11 2025 *)
%Y A380076 Cf. A379899, A380075 (records).
%K A380076 nonn
%O A380076 1,2
%A A380076 _Paolo Xausa_, Jan 11 2025