A368385 Indices of records in A364054.

1, 2, 3, 4, 6, 8, 9, 10, 12, 14, 16, 18, 20, 22, 23, 25, 27, 28, 29, 63, 65, 67, 69, 71, 73, 75, 77, 79, 80, 83, 84, 86, 88, 91, 93, 95, 97, 100, 104, 108, 110, 112, 114, 151, 167, 169, 170, 177, 182, 189, 192, 195, 197, 200, 202, 305, 307, 352, 353, 355, 369, 375, 380, 385, 388, 391, 395, 397, 412, 416, 421, 429, 432

Offset: 1

Author

N. J. A. Sloane, Mar 05 2024

Keywords

• nonn

Links

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

Crossrefs

Cf. A364054, A368384.

Programs

Mathematica

nn = 2^20; c[] := False; m[] := 0; s = 0; a[1] = j = 1;
c[0] = c[1] = True;
{1}~Join~Reap[Monitor[Do[p = Prime[n - 1]; r = Mod[j, p];
     While[Set[k, p  m[p] + r]; c[k], m[p]++];
     Set[{c[k], j}, {True, k}];
If[k > s, s = k; Sow[n]], {n, 2, nn}], n] ][[-1, 1]] (* Michael De Vlieger, Mar 05 2024 *)