A288934 Positions of 1 in A288932; complement of A288933.

1, 3, 5, 6, 8, 10, 11, 12, 14, 16, 17, 19, 21, 22, 23, 24, 26, 28, 29, 31, 33, 34, 35, 37, 39, 40, 42, 44, 45, 46, 47, 48, 50, 52, 53, 55, 57, 58, 59, 61, 63, 64, 66, 68, 69, 70, 71, 73, 75, 76, 78, 80, 81, 82, 84, 86, 87, 89, 91, 92, 93, 94, 95, 96, 98, 100

Offset

1,2

Comments

Conjecture: a(n)/n -> 3/2, and -2/3 < 3/2 - a(n)/n < 1/2 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", "1" -> "10101"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288932 *)
Flatten[Position[st, 0]]  (* A288933 *)
Flatten[Position[st, 1]]  (* A288934 *)

Crossrefs

Cf. A288932, A288933.

Sequence in context: A174805 A354140 A183872 * A186356 A184582 A184734

Adjacent sequences: A288931 A288932 A288933 * A288935 A288936 A288937

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved