login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Records in A364054.
3

%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