A352204 Indices of records in A109812.

1, 2, 3, 5, 7, 8, 11, 15, 18, 21, 23, 27, 29, 32, 38, 40, 50, 53, 56, 59, 70, 75, 84, 89, 101, 103, 106, 108, 113, 156, 161, 163, 164, 188, 239, 293, 307, 328, 417, 420, 425, 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

Offset: 1

Author

N. J. A. Sloane and Chai Wah Wu, Mar 28 2022

Keywords

• nonn

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..962 (terms 1..113 from N. J. A. Sloane, terms 114..380 terms from Michael De Vlieger)
• Rémy Sigrist, C++ program.

Crossrefs

Cf. A109812, A352203.

Programs

Mathematica

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 *)