A288735 Positions of 1 in A288733; complement of A288734.

1, 5, 7, 8, 10, 11, 15, 19, 21, 22, 24, 25, 27, 28, 30, 31, 35, 39, 41, 42, 44, 45, 49, 53, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 70, 71, 75, 79, 81, 82, 84, 85, 89, 93, 95, 96, 98, 99, 101, 102, 104, 105, 109, 113, 115, 116, 118, 119, 123, 127, 129, 130

Offset

1,2

Comments

Conjecture: a(n)/n -> 2, and 0 < 2 - a(n)/n < 1 for n >= 1.

Links

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

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "1000", "10" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[21]] - 48   (* A288733 *)
Flatten[Position[st, 0]]  (* A288734 *)
Flatten[Position[st, 1]]  (* A288735 *)

Crossrefs

Cf. A288733, A288734.

Sequence in context: A112250 A192067 A347653 * A317507 A304433 A080707

Adjacent sequences: A288732 A288733 A288734 * A288736 A288737 A288738

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved