A287777 Positions of 1 in A287773; complement of A287774.

2, 4, 6, 8, 11, 13, 15, 17, 19, 21, 23, 26, 28, 30, 32, 35, 37, 39, 41, 43, 45, 47, 50, 52, 54, 56, 58, 60, 62, 65, 67, 69, 71, 74, 76, 78, 80, 82, 84, 86, 89, 91, 93, 95, 98, 100, 102, 104, 106, 108, 110, 113, 115, 117, 119, 121, 123, 125, 128, 130, 132

Offset

1,1

Comments

-1 < n*r - a(n) < 1 for n >= 1, where r = (15 + 3*sqrt(5))/10.

Links

Table of n, a(n) for n=1..61.

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "010", "1" -> "101"}]
st = ToCharacterCode[w1] - 48    (* A287773 *)
Flatten[Position[st, 0]]  (* A287774 *)
Flatten[Position[st, 1]]  (* A287777 *)

Crossrefs

Cf. A287772, A287773.

Sequence in context: A051244 A054683 A327255 * A249099 A329838 A190327

Adjacent sequences: A287774 A287775 A287776 * A287778 A287779 A287780

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved