A368384 Records in A364054.

1, 3, 6, 11, 15, 19, 38, 61, 63, 67, 71, 77, 83, 85, 164, 170, 174, 277, 384, 385, 389, 393, 399, 401, 407, 413, 417, 425, 826, 848, 1279, 1285, 1291, 1301, 1325, 1333, 1341, 1367, 1401, 1431, 1443, 1455, 1463, 1811, 1981, 1987, 2996, 3054, 3106, 3154, 3200, 3226, 3238, 3266, 3278, 4390, 4402, 4916, 7293, 7299, 7533, 7577

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, A368385.

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[s]], {n, 2, nn}], n]][[-1, 1]] (* Michael De Vlieger, Mar 05 2024 *)