A286491 Positions of 0 in A286490; complement of A286492.

1, 4, 6, 7, 10, 11, 13, 15, 16, 18, 19, 22, 24, 25, 28, 29, 31, 32, 35, 37, 38, 40, 42, 43, 46, 47, 49, 51, 52, 54, 55, 58, 60, 61, 63, 65, 66, 69, 70, 72, 73, 76, 78, 79, 82, 83, 85, 87, 88, 90, 91, 94, 96, 97, 100, 101, 103, 104, 107, 109, 110, 112, 114

Offset

1,2

Comments

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

Links

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

Example

As a word, A286490 = 011010011001010010011..., in which 0 is in positions 1,4,6,7,10,11,...

Mathematica

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

Crossrefs

Cf. A010060, A286490, A286492.

Sequence in context: A256657 A189085 A153235 * A133483 A153082 A026147

Adjacent sequences: A286488 A286489 A286490 * A286492 A286493 A286494

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved