A284684 Positions of 0 in A284627; complement of A284685.

1, 4, 7, 8, 10, 13, 15, 16, 18, 22, 25, 26, 28, 32, 34, 35, 37, 40, 43, 44, 46, 49, 51, 52, 54, 58, 60, 61, 63, 66, 69, 70, 72, 76, 79, 80, 82, 85, 87, 88, 90, 94, 97, 98, 100, 104, 106, 107, 109, 112, 115, 116, 118, 122, 125, 126, 128, 131, 133, 134, 136

Offset

1,2

Comments

a(n) - a(n-1) is in {1,2,3,4} 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, A284627 = 0110110010110100101110..., in which 0 is in positions 1,4,7,8,10,...

Mathematica

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

Crossrefs

Cf. A010060, A284627, A284685.

Sequence in context: A174142 A091158 A175553 * A175008 A336408 A286401

Adjacent sequences: A284681 A284682 A284683 * A284685 A284686 A284687

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved