A288427 Positions of 0 in A288426; complement of A288428.

1, 3, 4, 5, 7, 10, 11, 14, 15, 16, 19, 20, 21, 23, 27, 28, 29, 31, 34, 35, 39, 40, 41, 43, 46, 47, 50, 51, 52, 56, 57, 58, 60, 63, 64, 67, 68, 69, 72, 73, 74, 76, 81, 82, 83, 85, 88, 89, 92, 93, 94, 97, 98, 99, 101, 105, 106, 107, 109, 112, 113, 118, 119

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.93..., 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" -> "0101", "10" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288426 *)
Flatten[Position[st, 0]]  (* A288427 *)
Flatten[Position[st, 1]]  (* A288428 *)

Crossrefs

Cf. A288426, A288428.

Sequence in context: A353448 A048342 A159560 * A030502 A201025 A288451

Adjacent sequences: A288424 A288425 A288426 * A288428 A288429 A288430

Keyword

nonn,easy

Author

Clark Kimberling, Jun 10 2017

Status

approved