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,1

Links

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

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 *)

Crossrefs

Cf. A379899, A380076 (indices of records).

Sequence in context: A296931 A278698 A023221 * A127430 A171595 A106483

Adjacent sequences: A380072 A380073 A380074 * A380076 A380077 A380078

Keyword

nonn

Author

Paolo Xausa, Jan 11 2025

Status

approved