A284623 Positions of 0 in A284622; complement of A284626.

1, 4, 6, 7, 8, 10, 13, 15, 16, 18, 21, 22, 24, 25, 26, 28, 31, 32, 34, 35, 37, 40, 42, 43, 44, 46, 49, 51, 52, 54, 57, 58, 60, 61, 63, 66, 68, 69, 70, 72, 75, 76, 78, 79, 80, 82, 85, 87, 88, 90, 93, 94, 96, 97, 98, 100, 103, 104, 106, 107, 109, 112, 114, 115

Offset

1,2

Comments

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

This conjecture follows directly from the corresponding result for the positions of 1, proved in A284626. - Michel Dekking, Mar 31 2022

Links

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

Example

As a word, A284622 = 011010001011010010..., in which 0 is in positions 1,4,6,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" -> "0"}]
st = ToCharacterCode[w1] - 48  (* A284622 *)
Flatten[Position[st, 0]]  (* A284623 *)
Flatten[Position[st, 1]]  (* A284626 *)

Crossrefs

Cf. A010060, A284622, A284626.

Sequence in context: A324704 A203168 A284820 * A139490 A030375 A081712

Adjacent sequences: A284620 A284621 A284622 * A284624 A284625 A284626

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved