A286053 Positions of 0 in A286052; complement of A286054.

1, 3, 4, 5, 8, 9, 10, 11, 12, 13, 14, 16, 17, 19, 20, 21, 24, 25, 26, 28, 29, 31, 32, 33, 34, 35, 36, 37, 40, 41, 42, 43, 44, 45, 46, 48, 49, 51, 52, 53, 54, 55, 56, 57, 60, 61, 62, 64, 65, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 80, 81, 83, 84, 85, 88, 89

Offset

1,2

Comments

Conjecture: a(n)/n -> 4/3.

Links

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

Example

As a word, A286052 = 01000110000000100100..., in which 0 is in positions 1,3,4,5,3,...

Mathematica

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

Crossrefs

Cf. A010060, A286052, A286054.

Sequence in context: A021747 A334631 A105020 * A112594 A188003 A120519

Adjacent sequences: A286050 A286051 A286052 * A286054 A286055 A286056

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2017

Status

approved