|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|