A352203 Records in A109812.

1, 2, 4, 8, 10, 16, 18, 32, 33, 36, 40, 48, 64, 66, 72, 96, 128, 129, 130, 132, 136, 192, 193, 194, 196, 256, 257, 320, 322, 328, 384, 448, 512, 528, 640, 768, 770, 800, 1024, 1025, 1028, 1029, 1280, 1281, 1312, 1536, 1538, 1544, 1792, 1793, 2048, 2304, 2560, 2688, 3072, 3073, 3074, 3136, 3200, 3328, 3584, 3592, 4096, 4100, 4101, 4104, 4160, 5120

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 from Michael De Vlieger)
• Rémy Sigrist, C++ program.

Crossrefs

Cf. A109812, A352204.

Programs

Mathematica

c[] = 0; a[1] = c[1] = r = 1; u = 2; 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[r]; Set[r, k]], {i, 2, 1980}]][[-1, -1]] (* _Michael De Vlieger, Mar 29 2022 *)