A287727 Positions of 1 in A287725; complement of A287726.

1, 3, 4, 5, 6, 8, 9, 10, 12, 13, 14, 15, 17, 18, 19, 20, 22, 23, 24, 26, 27, 28, 29, 31, 32, 33, 35, 36, 37, 38, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 63, 64, 65, 66, 68, 69, 70, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83, 84

Offset

1,2

Comments

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

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    (* A287725 *)
Flatten[Position[st, 0]]  (* A287726 *)
Flatten[Position[st, 1]]  (* A287727 *)

Crossrefs

Cf. A287725, A287726.

Sequence in context: A187970 A122488 A241403 * A298606 A039095 A001957

Adjacent sequences: A287724 A287725 A287726 * A287728 A287729 A287730

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved