login
A368384
Records in A364054.
3
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,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[s]], {n, 2, nn}], n]][[-1, 1]] (* Michael De Vlieger, Mar 05 2024 *)
CROSSREFS
Sequence in context: A067278 A310100 A234011 * A113960 A287075 A263260
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 05 2024
STATUS
approved