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,2

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.

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

Prog

(C++) See Links section.

Crossrefs

Cf. A109812, A352203.

Sequence in context: A026401 A069353 A300163 * A224858 A090704 A112055

Adjacent sequences: A352201 A352202 A352203 * A352205 A352206 A352207

Keyword

nonn

Author

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

Status

approved