Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 Mar 06 2024 11:59:42
%S 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,
%T 75,77,79,80,83,84,86,88,91,93,95,97,100,104,108,110,112,114,151,167,
%U 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
%N Indices of records in A364054.
%H Michael De Vlieger, <a href="/A368385/b368385.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[n]], {n, 2, nn}], n] ][[-1, 1]] (* _Michael De Vlieger_, Mar 05 2024 *)
%Y Cf. A364054, A368384.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Mar 05 2024