A286057 Positions of 1 in A286055; complement of A286056.

2, 3, 4, 6, 7, 9, 10, 11, 12, 13, 14, 15, 18, 19, 20, 22, 23, 25, 26, 27, 30, 31, 32, 33, 34, 35, 36, 38, 39, 41, 42, 43, 44, 45, 46, 47, 50, 51, 52, 53, 54, 55, 56, 58, 59, 61, 62, 63, 66, 67, 68, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 86, 87, 89

Offset

1,1

Comments

Conjecture: a(n)/n -> 4/3.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

As a word, A286055 = 011101101111111001..., in which 1 is in positions 2,3,4,6,7,9,...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"010" -> "0"}]
st = ToCharacterCode[w1] - 48 (* A286055 *)
Flatten[Position[st, 0]]  (* A286056 *)
Flatten[Position[st, 1]]  (* A286057 *)

Crossrefs

Cf. A010060, A286055, A286056.

Sequence in context: A114956 A039256 A039197 * A039148 A065904 A039108

Adjacent sequences: A286054 A286055 A286056 * A286058 A286059 A286060

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved