Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 Mar 06 2024 11:59:14
%S 1,3,6,11,15,19,38,61,63,67,71,77,83,85,164,170,174,277,384,385,389,
%T 393,399,401,407,413,417,425,826,848,1279,1285,1291,1301,1325,1333,
%U 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
%N Records in A364054.
%H Michael De Vlieger, <a href="/A368384/b368384.txt">Table of n, a(n) for n = 1..10000</a>
%t nn = 2^20; c[_] := False; m[_] := 0; s = 0; a[1] = j = 1;
%t c[0] = c[1] = True;
%t {1}~Join~Reap[Monitor[Do[p = Prime[n - 1]; r = Mod[j, p];
%t While[Set[k, p m[p] + r]; c[k], m[p]++];
%t Set[{c[k], j}, {True, k}];
%t If[k > s, s = k; Sow[s]], {n, 2, nn}], n]][[-1, 1]] (* _Michael De Vlieger_, Mar 05 2024 *)
%Y Cf. A364054, A368385.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Mar 05 2024