A285964 Positions of 0 in A285963; complement of A285965.

1, 2, 3, 5, 6, 7, 8, 9, 11, 12, 13, 15, 16, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 38, 39, 41, 42, 43, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 83

Offset

1,2

Comments

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

Links

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

Example

As a word, A285963 = 00010000010001001..., in which 0 is in positions 1,2,3,5,6,...

Mathematica

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

Crossrefs

Cf. A010060, A285963, A285965.

Sequence in context: A242485 A099354 A039115 * A198045 A152854 A341763

Adjacent sequences: A285961 A285962 A285963 * A285965 A285966 A285967

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved