A286056 Positions of 0 in A286055; complement of A286057.

1, 5, 8, 16, 17, 21, 24, 28, 29, 37, 40, 48, 49, 57, 60, 64, 65, 69, 72, 80, 81, 85, 88, 92, 93, 101, 104, 108, 109, 113, 116, 124, 125, 133, 136, 144, 145, 149, 152, 156, 157, 165, 168, 176, 177, 185, 188, 192, 193, 197, 200, 208, 209, 217, 220, 228, 229

Offset

1,2

Comments

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

Links

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

Example

As a word, A286055 = 011101101111111001..., in which 0 is in positions 1,5,8,16,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"010" -> "0"}]
st = ToCharacterCode[w1] - 48 (* A286055 *)
Flatten[Position[st, 0]]  (* A286056 *)
Flatten[Position[st, 1]]  (* A286057 *)

Crossrefs

Cf. A010060, A286055, A286057.

Sequence in context: A314561 A314562 A065905 * A314563 A314564 A314565

Adjacent sequences: A286053 A286054 A286055 * A286057 A286058 A286059

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved