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,2

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]

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 *)

Crossrefs

Cf. A109812, A352576, A352884.

Sequence in context: A228410 A119589 A316915 * A266798 A268449 A289826

Adjacent sequences: A352572 A352573 A352574 * A352576 A352577 A352578

Keyword

nonn

Author

N. J. A. Sloane, Apr 04 2022

Status

approved