A286485 Positions of 0 in A286484; complement of A286486.

1, 4, 6, 7, 10, 13, 15, 18, 19, 22, 24, 25, 28, 31, 32, 35, 37, 40, 42, 43, 46, 49, 51, 54, 55, 58, 60, 63, 65, 66, 69, 72, 73, 76, 78, 79, 82, 85, 87, 90, 91, 94, 96, 97, 100, 103, 104, 107, 109, 112, 114, 115, 118, 121, 122, 125, 127, 128, 131, 134, 136

Offset

1,2

Comments

a(n) - a(n-1) is in {1,2,3} for n>=2. Conjecture: a(n)/n -> 9/4.

Links

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

Example

As a word, A286484 = 01101001101101011001..., in which 0 is in positions 1,4,6,7,10,...

Mathematica

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

Crossrefs

Cf. A010060, A286484, A286486.

Sequence in context: A326227 A103401 A285091 * A363189 A277572 A107622

Adjacent sequences: A286482 A286483 A286484 * A286486 A286487 A286488

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved