A286051 Positions of 1 in A286049; complement of A286050.

2, 3, 6, 8, 10, 11, 14, 16, 18, 19, 22, 24, 26, 28, 29, 32, 34, 35, 38, 40, 42, 43, 46, 48, 50, 51, 54, 56, 57, 60, 62, 64, 66, 67, 70, 72, 74, 75, 78, 80, 82, 83, 86, 88, 90, 92, 93, 96, 98, 99, 102, 104, 106, 108, 109, 112, 114, 116, 117, 120, 122, 124

Offset

1,1

Comments

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

Also, the positions of 1 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 1 is in positions 2,3,6,8,10,...

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, A286050.

Sequence in context: A334747 A285306 A047403 * A093193 A187750 A089422

Adjacent sequences: A286048 A286049 A286050 * A286052 A286053 A286054

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2017

Status

approved