A287791 Positions of 0 in A287790; complement of A287792.

1, 2, 6, 7, 8, 10, 11, 15, 16, 17, 21, 22, 23, 25, 26, 30, 31, 32, 34, 35, 39, 40, 41, 45, 46, 47, 49, 50, 54, 55, 56, 60, 61, 62, 64, 65, 69, 70, 71, 73, 74, 78, 79, 80, 84, 85, 86, 88, 89, 93, 94, 95, 97, 98, 102, 103, 104, 108, 109, 110, 112, 113, 117

Offset

1,2

Comments

-1 < n*r - a(n) < 3 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" -> "001", "1" -> "110"}]
st = ToCharacterCode[w1] - 48    (* A287790 *)
Flatten[Position[st, 0]]  (* A287791 *)
Flatten[Position[st, 1]]  (* A287792 *)

Crossrefs

Cf. A287790, A287792.

Sequence in context: A023633 A332938 A037310 * A366256 A028774 A355160

Adjacent sequences: A287788 A287789 A287790 * A287792 A287793 A287794

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved