login
A368385
Indices of records in A364054.
3
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,2
LINKS
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 *)
CROSSREFS
Sequence in context: A035033 A054219 A196277 * A280196 A143896 A160719
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 05 2024
STATUS
approved