A287723 Positions of 0 in A287722; complement of A287724.

2, 4, 7, 9, 11, 13, 16, 18, 21, 23, 25, 27, 30, 32, 34, 36, 39, 41, 44, 46, 48, 50, 53, 55, 58, 60, 62, 64, 67, 69, 71, 73, 76, 78, 81, 83, 85, 87, 90, 92, 94, 96, 99, 101, 104, 106, 108, 110, 113, 115, 118, 120, 122, 124, 127, 129, 131, 133, 136, 138, 141

Offset

1,1

Comments

Conjecture: -1 < n*r - a(n) < 1 for n >= 1, where r = (7 + sqrt(5))/4.

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" -> "1", "1" -> "011"}]
st = ToCharacterCode[w1] - 48    (* A287722 *)
Flatten[Position[st, 0]]  (* A287723 *)
Flatten[Position[st, 1]]  (* A287724 *)

Crossrefs

Cf. A287722, A287724.

Sequence in context: A029924 A125883 A022848 * A284589 A020904 A043000

Adjacent sequences: A287720 A287721 A287722 * A287724 A287725 A287726

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved