A286050 Positions of 0 in A286049; complement of A286051.

1, 4, 5, 7, 9, 12, 13, 15, 17, 20, 21, 23, 25, 27, 30, 31, 33, 36, 37, 39, 41, 44, 45, 47, 49, 52, 53, 55, 58, 59, 61, 63, 65, 68, 69, 71, 73, 76, 77, 79, 81, 84, 85, 87, 89, 91, 94, 95, 97, 100, 101, 103, 105, 107, 110, 111, 113, 115, 118, 119, 121, 123

Offset

1,2

Comments

Conjecture: 2n - a(n) is in {0,1} for n >= 1.

Also, the positions of 0 in the {100->0}-transform of A010060.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

As a word, A286049 = 0110010101100101..., in which 0 is in positions 1,4,5,7,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* Thue-Morse, A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"110" -> "1"}]
st = ToCharacterCode[w1] - 48 (* A286049 *)
Flatten[Position[st, 0]]  (* A286050 *)
Flatten[Position[st, 1]]  (* A286051 *)

Crossrefs

Cf. A010060, A286049, A286051.

Sequence in context: A035255 A341787 A335984 * A047493 A285307 A297838

Adjacent sequences: A286047 A286048 A286049 * A286051 A286052 A286053

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2017

Status

approved