A352204 - OEIS

%I #24 Oct 27 2023 19:40:38

%S 1,2,3,5,7,8,11,15,18,21,23,27,29,32,38,40,50,53,56,59,70,75,84,89,

%T 101,103,106,108,113,156,161,163,164,188,239,293,307,328,417,420,425,

%U 431,433,480,491,546,617,631,633,648,649,651,890,892,1225,1235,1245,1251,1305,1307,1315,1323,1324,1476,1485,1517,1598,1891,1898,1913,1970

%N Indices of records in A109812.

%H Rémy Sigrist, <a href="/A352204/b352204.txt">Table of n, a(n) for n = 1..962</a> (terms 1..113 from N. J. A. Sloane, terms 114..380 terms from Michael De Vlieger)

%H Rémy Sigrist, <a href="/A352204/a352204.txt">C++ program</a>.

%t c[_] = 0; a[1] = c[1] = r = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[c[k] == 0, BitAnd[a[i - 1], k] == 0], k++]; Set[{a[i], c[k]}, {k, i}]; If[k == u, While[c[u] > 0, u++]]; If[k > r, Sow[i]; Set[r, k]], {i, 2, 1980}]][[-1, -1]] (* _Michael De Vlieger_, Mar 29 2022 *)

%o (C++) See Links section.

%Y Cf. A109812, A352203.

%K nonn

%O 1,2

%A _N. J. A. Sloane_ and _Chai Wah Wu_, Mar 28 2022