A286421 Positions of 1 in A286419; complement of A286420.

2, 3, 4, 5, 6, 9, 11, 12, 13, 14, 16, 17, 20, 21, 22, 23, 24, 27, 29, 30, 33, 34, 35, 36, 38, 39, 40, 41, 42, 45, 47, 48, 49, 50, 52, 53, 56, 57, 58, 59, 61, 62, 63, 64, 65, 68, 70, 71, 74, 75, 76, 77, 78, 81, 83, 84, 85, 86, 88, 89, 92, 93, 94, 95, 96, 99

Offset

1,1

Comments

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

Links

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

Example

As a word, A286419 = 011111001011110110011..., in which 1 is in positions 2,3,4,5,6,9,...

Mathematica

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

Crossrefs

Cf. A010060, A286419, A286420.

Sequence in context: A162228 A085714 A240093 * A116546 A108957 A080112

Adjacent sequences: A286418 A286419 A286420 * A286422 A286423 A286424

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved