A285971 Positions of 0 in A285969; complement of A285970.

2, 6, 8, 11, 14, 18, 21, 24, 26, 30, 32, 35, 38, 41, 43, 47, 50, 54, 56, 59, 62, 66, 69, 72, 74, 78, 81, 85, 87, 90, 93, 96, 98, 102, 104, 107, 110, 114, 117, 120, 122, 126, 128, 131, 134, 137, 139, 143, 146, 150, 152, 155, 158, 161, 163, 167, 169, 172, 175

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.

Links

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

Example

As a word, A285969 = 0100010100100......, in which 10 is in positions 2,6,8,11,14,...

Mathematica

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

Crossrefs

Cf. A010060, A285969, A285970.

Sequence in context: A022430 A189666 A298474 * A079418 A298170 A067246

Adjacent sequences: A285968 A285969 A285970 * A285972 A285973 A285974

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved