A286340 Positions of 0 in A286339; complement of A286341.

1, 3, 4, 7, 8, 10, 12, 13, 15, 18, 19, 21, 22, 25, 26, 28, 31, 32, 34, 35, 37, 39, 40, 43, 44, 46, 48, 49, 51, 54, 55, 57, 58, 60, 62, 63, 66, 67, 69, 72, 73, 75, 76, 79, 80, 82, 84, 85, 87, 90, 91, 93, 94, 97, 98, 100, 103, 104, 106, 107, 109, 111, 112, 115

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, A286339 = 01001100101001011001001100..., in which 0 is in positions 1,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" -> "1"}]
st = ToCharacterCode[w1] - 48  (* A286339 *)
Flatten[Position[st, 0]]  (* A286340 *)
Flatten[Position[st, 1]]  (* A286341 *)

Crossrefs

Cf. A010060, A286339, A286341.

Sequence in context: A091934 A178482 A284658 * A024515 A187835 A184820

Adjacent sequences: A286337 A286338 A286339 * A286341 A286342 A286343

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved