A286341 Positions of 1 in A286339; complement of A286340.

2, 5, 6, 9, 11, 14, 16, 17, 20, 23, 24, 27, 29, 30, 33, 36, 38, 41, 42, 45, 47, 50, 52, 53, 56, 59, 61, 64, 65, 68, 70, 71, 74, 77, 78, 81, 83, 86, 88, 89, 92, 95, 96, 99, 101, 102, 105, 108, 110, 113, 114, 117, 119, 120, 123, 126, 127, 130, 132, 135, 137

Offset

1,1

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, A286339 = 01001100101001011001001100..., in which 1 is in positions 2,5,6,9,11,...

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, A286340.

Sequence in context: A046160 A033161 A024516 * A284657 A230506 A236072

Adjacent sequences: A286338 A286339 A286340 * A286342 A286343 A286344

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved