A287724 Positions of 1 in A287722; complement of A287723.

1, 3, 5, 6, 8, 10, 12, 14, 15, 17, 19, 20, 22, 24, 26, 28, 29, 31, 33, 35, 37, 38, 40, 42, 43, 45, 47, 49, 51, 52, 54, 56, 57, 59, 61, 63, 65, 66, 68, 70, 72, 74, 75, 77, 79, 80, 82, 84, 86, 88, 89, 91, 93, 95, 97, 98, 100, 102, 103, 105, 107, 109, 111, 112

Offset

1,2

Comments

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

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

Sequence in context: A300730 A191777 A284590 * A024705 A190192 A187977

Adjacent sequences: A287721 A287722 A287723 * A287725 A287726 A287727

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved