A288931 Positions of 1 in A288929; complement of A288930.

1, 4, 5, 7, 8, 11, 12, 13, 14, 17, 18, 20, 21, 22, 23, 26, 27, 29, 30, 33, 34, 35, 36, 37, 38, 41, 42, 44, 45, 48, 49, 50, 51, 54, 55, 57, 58, 59, 60, 61, 62, 65, 66, 68, 69, 72, 73, 74, 75, 78, 79, 81, 82, 83, 84, 87, 88, 90, 91, 94, 95, 96, 97, 98, 99, 100

Offset

1,2

Comments

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

Crossrefs

Cf. A288929, A288930.

Sequence in context: A098416 A005556 A159698 * A191276 A228919 A047377

Adjacent sequences: A288928 A288929 A288930 * A288932 A288933 A288934

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved