login
A352203
Records in A109812.
15
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,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 from Michael De Vlieger)
Rémy Sigrist, C++ program.
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 *)
PROG
(C++) See Links section.
CROSSREFS
Sequence in context: A339608 A268497 A093886 * A125732 A032533 A062884
KEYWORD
nonn
AUTHOR
N. J. A. Sloane and Chai Wah Wu, Mar 28 2022
STATUS
approved