A286753 Positions of 0 in A286752; complement of A286753.

2, 4, 5, 7, 9, 12, 14, 15, 17, 19, 22, 24, 26, 27, 29, 32, 34, 36, 37, 39, 42, 44, 46, 47, 49, 51, 54, 56, 57, 59, 61, 64, 66, 68, 69, 71, 74, 76, 78, 79, 81, 84, 86, 88, 89, 91, 93, 96, 98, 99, 101, 103, 106, 108, 109, 111, 113, 116, 118, 120, 121, 123, 126

Offset

1,1

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 - A286754(n) for n >= 1.

Example

As a word, A286752 = 10100101011010010101101001001..., in which 0 is in positions 2,4,5,7,9,12,...

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

Sequence in context: A158618 A000788 A053039 * A325543 A214051 A027861

Adjacent sequences: A286750 A286751 A286752 * A286754 A286755 A286756

Keyword

nonn,easy

Author

Clark Kimberling, May 14 2017

Status

approved