A285976 Positions of 0 in A285975; complement of A285977.

1, 4, 6, 9, 11, 14, 16, 18, 21, 24, 26, 29, 31, 34, 37, 39, 41, 44, 46, 49, 51, 54, 56, 58, 61, 64, 66, 68, 71, 73, 76, 78, 81, 84, 86, 89, 91, 94, 96, 98, 101, 104, 106, 109, 111, 114, 117, 119, 121, 124, 126, 129, 131, 134, 137, 139, 142, 144, 147, 149

Offset

1,2

Comments

Conjecture: a(n)/n -> 5/2.

Links

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

Example

As a word, A285975 = 011010110101101010110110..., in which 0 is in positions 1,4,6,9,11,...

Mathematica

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

Crossrefs

Cf. A010060, A285975, A285977.

Sequence in context: A285078 A186318 A186345 * A190373 A329784 A010387

Adjacent sequences: A285973 A285974 A285975 * A285977 A285978 A285979

Keyword

nonn,easy

Author

Clark Kimberling, May 06 2017

Status

approved