A287659 Positions of 1 in A287657; complement of A287658.

2, 3, 6, 8, 9, 12, 13, 16, 18, 19, 22, 24, 25, 28, 29, 32, 34, 35, 38, 39, 42, 44, 45, 48, 50, 51, 54, 55, 58, 60, 61, 64, 66, 67, 70, 71, 74, 76, 77, 80, 81, 84, 86, 87, 90, 92, 93, 96, 97, 100, 102, 103, 106, 107, 110, 112, 113, 116, 118, 119, 122, 123

Offset

1,1

Links

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

Formula

a(n) = 2n - A003849(n-1) for n >= 1.

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (*A003849*)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "01", "1" -> "10"}]   (*Thue-Morse transform*)
st = ToCharacterCode[w1] - 48    (*A287657*)
Flatten[Position[st, 0]]  (*A287658*)
Flatten[Position[st, 1]]  (*A287659*)

Crossrefs

Cf. A003849, A005614, A287657, A287658.

Sequence in context: A092114 A032711 A135768 * A047244 A111215 A099381

Adjacent sequences: A287656 A287657 A287658 * A287660 A287661 A287662

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved