A287774 Positions of 0 in A287773; complement of A287777.

1, 3, 5, 7, 9, 10, 12, 14, 16, 18, 20, 22, 24, 25, 27, 29, 31, 33, 34, 36, 38, 40, 42, 44, 46, 48, 49, 51, 53, 55, 57, 59, 61, 63, 64, 66, 68, 70, 72, 73, 75, 77, 79, 81, 83, 85, 87, 88, 90, 92, 94, 96, 97, 99, 101, 103, 105, 107, 109, 111, 112, 114, 116

Offset

1,2

Comments

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

Links

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

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. A287773, A287777.

Sequence in context: A329837 A214315 A249098 * A308412 A327254 A054684

Adjacent sequences: A287771 A287772 A287773 * A287775 A287776 A287777

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved