A286337 Positions of 0 in A286336; complement of A286338.

1, 2, 3, 4, 7, 8, 10, 11, 12, 13, 15, 18, 19, 20, 21, 22, 25, 26, 28, 31, 32, 33, 34, 35, 37, 38, 39, 40, 43, 44, 46, 47, 48, 49, 51, 54, 55, 56, 57, 58, 60, 61, 62, 63, 66, 67, 69, 72, 73, 74, 75, 76, 79, 80, 82, 83, 84, 85, 87, 90, 91, 92, 93, 94, 97, 98

Offset

1,2

Comments

Conjecture: a(n)/n -> 3/2.

Links

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

Example

As a word, A286336 = 0000110010000101100000110..., in which 0 is in positions 1,2,3,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, {"1101" -> "0"}]
st = ToCharacterCode[w1] - 48  (* A286336 *)
Flatten[Position[st, 0]]  (* A286337 *)
Flatten[Position[st, 1]]  (* A286338 *)

Crossrefs

Cf. A010060, A286336, A286338.

Sequence in context: A113318 A056033 A302123 * A047547 A014456 A349152

Adjacent sequences: A286334 A286335 A286336 * A286338 A286339 A286340

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved