|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|