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

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

Crossrefs

Cf. A379899, A380075 (records).

Sequence in context: A014155 A263579 A166527 * A039223 A028392 A175970

Adjacent sequences: A380073 A380074 A380075 * A380077 A380078 A380079

Keyword

nonn

Author

Paolo Xausa, Jan 11 2025

Status

approved