A288753 Positions of 0 in A288752; complement of A288754.

1, 4, 5, 7, 8, 10, 11, 13, 15, 18, 19, 21, 22, 24, 26, 29, 30, 32, 33, 35, 37, 40, 41, 43, 46, 47, 49, 52, 53, 55, 56, 58, 59, 61, 63, 66, 67, 69, 70, 72, 74, 77, 78, 80, 83, 84, 86, 89, 90, 92, 93, 95, 96, 98, 100, 103, 104, 106, 107, 109, 111, 114, 115

Offset

1,2

Comments

Conjecture: a(n)/n->1.83..., and if m denotes this number, then -1 < m - 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" -> "0110", "1" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288752 *)
Flatten[Position[st, 0]]  (* A288753 *)
Flatten[Position[st, 1]]  (* A288754 *)

Crossrefs

Cf. A288752, A288754.

Sequence in context: A097482 A191984 A219958 * A202186 A247467 A032728

Adjacent sequences: A288750 A288751 A288752 * A288754 A288755 A288756

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved