A285965 Positions of 1 in A285963; complement of A285964.

4, 10, 14, 17, 24, 30, 37, 40, 44, 50, 54, 57, 64, 67, 71, 77, 84, 90, 94, 97, 104, 110, 117, 120, 124, 130, 137, 143, 147, 150, 157, 160, 164, 170, 174, 177, 184, 190, 197, 200, 204, 210, 214, 217, 224, 227, 231, 237, 244, 250, 254, 257, 264, 267, 271, 277

Offset

1,1

Comments

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

Links

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

Example

As a word, A285963 = 00010000010001001..., in which 1 is in positions 4,10,14,17,...

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, A285964.

Sequence in context: A310364 A310365 A310366 * A310367 A310368 A310369

Adjacent sequences: A285962 A285963 A285964 * A285966 A285967 A285968

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved