A286066 Positions of 1 in A286064; complement of A286065.

1, 2, 4, 6, 7, 8, 11, 12, 13, 14, 16, 18, 19, 20, 21, 24, 25, 26, 28, 30, 31, 32, 35, 36, 37, 38, 41, 42, 43, 45, 47, 48, 49, 50, 52, 54, 55, 56, 59, 60, 61, 62, 64, 66, 67, 68, 69, 72, 73, 74, 76, 78, 79, 80, 81, 83, 85, 86, 87, 90, 91, 92, 93, 96, 97, 98

Offset

1,2

Comments

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

Links

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

Example

As a word, A286064 = 110101110011110101111001110......, in which 1 is in positions 1,2,4,6,7,8,11,...

Mathematica

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

Crossrefs

Cf. A010060, A286064, A286065.

Sequence in context: A015932 A030493 A165778 * A139527 A163578 A345918

Adjacent sequences: A286063 A286064 A286065 * A286067 A286068 A286069

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved