A285959 Positions of 1 in A285957; complement of A285958.

2, 6, 10, 15, 18, 22, 26, 29, 34, 38, 42, 47, 50, 55, 59, 63, 66, 70, 74, 79, 82, 86, 90, 93, 98, 102, 106, 109, 113, 117, 122, 125, 130, 134, 138, 143, 146, 150, 154, 157, 162, 166, 170, 175, 178, 183, 187, 191, 194, 198, 202, 207, 210, 215, 219, 223, 228

Offset

1,1

Comments

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

Links

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

Example

As a word, A285957 = 010001000100001..., in which 1 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, A285958.

Sequence in context: A074105 A329657 A179777 * A288631 A276211 A190091

Adjacent sequences: A285956 A285957 A285958 * A285960 A285961 A285962

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved