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 A380075 #10 Jan 11 2025 18:47:24
%S A380075 2,3,7,11,13,17,29,37,41,53,59,67,71,79,83,103,107,127,131,139,151,
%T A380075 163,167,179,181,193,197,229,233,241,257,269,277,281,293,313,317,337,
%U A380075 349,353,373,389,397,401,409,421,433,449,457,461,509,521,541,557,569,571
%N A380075 Records in A379899.
%H A380075 Michael De Vlieger, <a href="/A380075/b380075.txt">Table of n, a(n) for n = 1..10000</a>
%t A380075 nn = 120; c[_] := True; r = j = 2; s = 4; c[2] = False;
%t A380075 {j}~Join~Reap[Do[m = j + s;
%t A380075 While[k = SelectFirst[FactorInteger[m][[All, 1]], c];
%t A380075 ! IntegerQ[k], m += s];
%t A380075 c[k] = False; j = k;
%t A380075 If[k > r, r = k; Sow[r]], {nn}] ][[-1, 1]] (* _Michael De Vlieger_, Jan 11 2025 *)
%Y A380075 Cf. A379899, A380076 (indices of records).
%K A380075 nonn
%O A380075 1,1
%A A380075 _Paolo Xausa_, Jan 11 2025