cp's OEIS Frontend

A368385 Indices of records in A364054.

%I A368385 #9 Mar 06 2024 11:59:42
%S A368385 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 A368385 75,77,79,80,83,84,86,88,91,93,95,97,100,104,108,110,112,114,151,167,
%U A368385 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 A368385 Indices of records in A364054.
%H A368385 Michael De Vlieger, <a href="/A368385/b368385.txt">Table of n, a(n) for n = 1..10000</a>
%t A368385 nn = 2^20; c[_] := False; m[_] := 0; s = 0; a[1] = j = 1;
%t A368385 c[0] = c[1] = True;
%t A368385 {1}~Join~Reap[Monitor[Do[p = Prime[n - 1]; r = Mod[j, p];
%t A368385      While[Set[k, p  m[p] + r]; c[k], m[p]++];
%t A368385      Set[{c[k], j}, {True, k}];
%t A368385 If[k > s, s = k; Sow[n]], {n, 2, nn}], n] ][[-1, 1]] (* _Michael De Vlieger_, Mar 05 2024 *)
%Y A368385 Cf. A364054, A368384.
%K A368385 nonn
%O A368385 1,2
%A A368385 _N. J. A. Sloane_, Mar 05 2024