A286495 Positions of 1 in A286493; complement of A286494.

2, 3, 5, 8, 9, 14, 20, 21, 23, 26, 27, 33, 34, 36, 41, 44, 45, 50, 56, 57, 59, 64, 67, 68, 74, 75, 77, 80, 81, 86, 92, 93, 95, 98, 99, 105, 106, 108, 113, 116, 117, 123, 124, 126, 129, 130, 135, 141, 142, 144, 149, 152, 153, 158, 164, 165, 167, 170, 171, 177

Offset

1,1

Comments

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

Links

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

Example

As a word, A286493 = 01101001100001000001..., in which 1 is in positions 2,3,5,8,9,14,...

Mathematica

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

Crossrefs

Cf. A010060, A286493, A286494.

Sequence in context: A125871 A141399 A104737 * A295082 A168154 A278334

Adjacent sequences: A286492 A286493 A286494 * A286496 A286497 A286498

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved