A287792 Positions of 1 in A287790; complement of A287791.

3, 4, 5, 9, 12, 13, 14, 18, 19, 20, 24, 27, 28, 29, 33, 36, 37, 38, 42, 43, 44, 48, 51, 52, 53, 57, 58, 59, 63, 66, 67, 68, 72, 75, 76, 77, 81, 82, 83, 87, 90, 91, 92, 96, 99, 100, 101, 105, 106, 107, 111, 114, 115, 116, 120, 121, 122, 126, 129, 130, 131

Offset

1,1

Comments

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

Crossrefs

Cf. A287790, A287791.

Sequence in context: A239197 A010422 A366257 * A050033 A243654 A063953

Adjacent sequences: A287789 A287790 A287791 * A287793 A287794 A287795

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved