A286420 Positions of 0 in A286419; complement of A286421.

1, 7, 8, 10, 15, 18, 19, 25, 26, 28, 31, 32, 37, 43, 44, 46, 51, 54, 55, 60, 66, 67, 69, 72, 73, 79, 80, 82, 87, 90, 91, 97, 98, 100, 103, 104, 109, 115, 116, 118, 121, 122, 128, 129, 131, 136, 139, 140, 145, 151, 152, 154, 159, 162, 163, 169, 170, 172, 175

Offset

1,2

Comments

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

Links

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

Example

As a word, A286419 = 011111001011110110011..., in which 0 is in positions 1,7,8,10,15,...

Mathematica

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

Crossrefs

Cf. A010060, A286419, A286421.

Sequence in context: A141676 A127164 A153972 * A111064 A071117 A054221

Adjacent sequences: A286417 A286418 A286419 * A286421 A286422 A286423

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved