A285958 Positions of 0 in A285957; complement of A285959.

1, 3, 4, 5, 7, 8, 9, 11, 12, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 30, 31, 32, 33, 35, 36, 37, 39, 40, 41, 43, 44, 45, 46, 48, 49, 51, 52, 53, 54, 56, 57, 58, 60, 61, 62, 64, 65, 67, 68, 69, 71, 72, 73, 75, 76, 77, 78, 80, 81, 83, 84, 85, 87, 88

Offset

1,2

Comments

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

Links

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

Example

As a word, A285957 = 010001000100001..., in which 0 is in positions 1,3,4,5,7,8,...

Mathematica

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

Crossrefs

Cf. A010060, A285957, A285959.

Sequence in context: A184425 A276212 A137905 * A179779 A284679 A183147

Adjacent sequences: A285955 A285956 A285957 * A285959 A285960 A285961

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved