A352575 A109812(n) in binary.

1, 10, 100, 11, 1000, 101, 1010, 10000, 110, 1001, 10010, 1100, 10001, 1110, 100000, 111, 11000, 100001, 10100, 1011, 100100, 10011, 101000, 10101, 100010, 1101, 110000, 1111, 1000000, 10110, 101001, 1000010, 11001, 100110, 1000001, 11010, 100101, 1001000, 10111, 1100000, 11011, 1000100, 100011, 11100, 1000011, 101100, 1010000, 100111, 1011000, 10000000

Offset: 1

Author

N. J. A. Sloane, Apr 04 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..16384
• Michael De Vlieger, Bitmap of a(n), n = 1..2^14, horizontally exaggerating each row by 256X.
• N. J. A. Sloane, Right-justified table of n, a(n) for n = 1..20000 [Note this is not a b-file.]
• N. J. A. Sloane, Right-justified table of n, a(n) for n = 1..10^6 [gzipped file, copied from A352575] [This file was corrupted, but today I replaced it with a corrected version. - _N. J. A. Sloane_, Apr 11 2022]

Crossrefs

Cf. A109812, A352576, A352884.

Programs

Mathematica

nn = 50, c[] = 0; a[1] = c[1] = 1; u = 2; Do[If[a[i - 1] == u, While[c[u] > 0, u++]]; k = u; While[Nand[c[k] == 0, BitAnd[a[i - 1], k] == 0], k++]; Set[{a[i], c[k]}, {k, i}], {i, Length[s] + 1, nn}]; Array[FromDigits@ IntegerDigits[a[#], 2] &, nn] (* _Michael De Vlieger, Apr 05 2022 *)