A285973 Positions of 0 in A285972; complement of A285974.

1, 5, 8, 13, 17, 21, 24, 28, 32, 37, 40, 45, 49, 53, 58, 61, 65, 69, 72, 77, 81, 85, 88, 92, 96, 101, 104, 108, 112, 115, 120, 124, 128, 133, 136, 141, 145, 149, 152, 156, 160, 165, 168, 173, 177, 181, 186, 189, 193, 197, 200, 205, 209, 213, 218, 221, 226

Offset

1,2

Comments

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

Links

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

Example

As a word, A285972 = 011101101111011101..., in which 0 is in positions 1,5,8,13,17,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* Thue-Morse, A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"10" -> "1"}]
st = ToCharacterCode[w1] - 48 (* A285972  *)
Flatten[Position[st, 0]]  (* A285973 *)
Flatten[Position[st, 1]]  (* A285974 *)

Crossrefs

Cf. A010060, A285972, A285974.

Sequence in context: A058240 A097268 A226696 * A219639 A314426 A314427

Adjacent sequences: A285970 A285971 A285972 * A285974 A285975 A285976

Keyword

nonn,easy

Author

Clark Kimberling, May 06 2017

Status

approved