A286754 Positions of 1 in A286752; complement of A286753.

1, 3, 6, 8, 10, 11, 13, 16, 18, 20, 21, 23, 25, 28, 30, 31, 33, 35, 38, 40, 41, 43, 45, 48, 50, 52, 53, 55, 58, 60, 62, 63, 65, 67, 70, 72, 73, 75, 77, 80, 82, 83, 85, 87, 90, 92, 94, 95, 97, 100, 102, 104, 105, 107, 110, 112, 114, 115, 117, 119, 122, 124

Offset

1,2

Comments

2n - a(n) is in {0,1} for n>=1.

Links

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

Formula

a(n) = 1 - A286753(n) for n >= 1.

Example

As a word, A286752 = 10100101011010010101101001001..., in which 1 is in positions 1,3,6,8,10,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 12]; (* A003849 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"010010" -> ""}];
st = ToCharacterCode[w1] - 48; (* A286752 *)
Flatten[Position[st, 0]];  (* A286753 *)
Flatten[Position[st, 1]];  (* A286754 *)

Crossrefs

Cf. A003849, A286752, A286753.

Sequence in context: A328505 A012132 A108769 * A186387 A258050 A185547

Adjacent sequences: A286751 A286752 A286753 * A286755 A286756 A286757

Keyword

nonn,easy

Author

Clark Kimberling, May 14 2017

Status

approved