A286401 Positions of 0 in A286400; complement of A286402.

1, 4, 7, 8, 10, 13, 15, 18, 19, 22, 25, 26, 28, 31, 32, 35, 37, 40, 43, 44, 46, 49, 51, 54, 55, 58, 60, 63, 66, 67, 69, 72, 73, 76, 79, 80, 82, 85, 87, 90, 91, 94, 97, 98, 100, 103, 104, 107, 109, 112, 115, 116, 118, 121, 122, 125, 128, 129, 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, A286400 = 011011001011010110011..., in which 0 is in positions 1,4,7,8,10,13,...

Mathematica

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

Crossrefs

Cf. A010060, A286400, A286402.

Sequence in context: A284684 A175008 A336408 * A084791 A310933 A186712

Adjacent sequences: A286398 A286399 A286400 * A286402 A286403 A286404

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved