A380075 Records in A379899.

2, 3, 7, 11, 13, 17, 29, 37, 41, 53, 59, 67, 71, 79, 83, 103, 107, 127, 131, 139, 151, 163, 167, 179, 181, 193, 197, 229, 233, 241, 257, 269, 277, 281, 293, 313, 317, 337, 349, 353, 373, 389, 397, 401, 409, 421, 433, 449, 457, 461, 509, 521, 541, 557, 569, 571

Offset: 1

Author

Paolo Xausa, Jan 11 2025

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A379899, A380076 (indices of records).

Programs

Mathematica

nn = 120; c[_] := True; r = j = 2; s = 4; c[2] = False;
{j}~Join~Reap[Do[m = j + s;
  While[k = SelectFirst[FactorInteger[m][[All, 1]], c];
    ! IntegerQ[k], m += s];
  c[k] = False; j = k;
  If[k > r, r = k; Sow[r]], {nn}] ][[-1, 1]] (* Michael De Vlieger, Jan 11 2025 *)