A380076 Indices of records in A379899.

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, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114

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, A380075 (records).

Programs

Mathematica

nn = 120; c[_] := True; r = j = 2; s = 4; c[2] = False;
{1}~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[n]], {n, nn}] ][[-1, 1]] (* Michael De Vlieger, Jan 11 2025 *)