A288552 Positions of 0 in A288551; complement of A288553.

1, 2, 5, 6, 9, 10, 13, 16, 17, 20, 23, 24, 27, 28, 31, 32, 35, 38, 39, 42, 45, 46, 49, 50, 53, 54, 57, 60, 61, 64, 67, 69, 71, 74, 77, 78, 81, 84, 85, 88, 89, 92, 93, 96, 99, 100, 103, 106, 108, 110, 113, 116, 117, 120, 123, 124, 127, 128, 131, 132, 135, 138

Offset

1,2

Comments

Conjecture: a(n)/n->2.34..., and if m denotes this number, then -1 < m - a(n)/n) < 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" -> "0101", "1" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288551 *)
Flatten[Position[st, 0]]  (* A288552 *)
Flatten[Position[st, 1]]  (* A288553 *)

Crossrefs

Cf. A288551, A288553, A288276.

Sequence in context: A166097 A285502 A276883 * A187583 A000277 A003664

Adjacent sequences: A288549 A288550 A288551 * A288553 A288554 A288555

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved