%I #27 Oct 27 2023 23:38:52
%S 1,2,4,8,10,16,18,32,33,36,40,48,64,66,72,96,128,129,130,132,136,192,
%T 193,194,196,256,257,320,322,328,384,448,512,528,640,768,770,800,1024,
%U 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
%N Records in A109812.
%H Rémy Sigrist, <a href="/A352203/b352203.txt">Table of n, a(n) for n = 1..962</a> (terms 1..113 from N. J. A. Sloane, terms 114..380 from Michael De Vlieger)
%H Rémy Sigrist, <a href="/A352203/a352203.txt">C++ program</a>.
%t 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 *)
%o (C++) See Links section.
%Y Cf. A109812, A352204.
%K nonn
%O 1,2
%A _N. J. A. Sloane_ and _Chai Wah Wu_, Mar 28 2022