A288730 Positions of 0 in A288729; complement of A288731.

1, 2, 5, 8, 9, 10, 11, 12, 15, 18, 21, 24, 25, 26, 27, 28, 31, 34, 35, 36, 37, 38, 41, 44, 47, 50, 53, 56, 57, 58, 59, 60, 63, 66, 67, 68, 69, 70, 73, 76, 79, 82, 83, 84, 85, 86, 89, 92, 93, 94, 95, 96, 99, 102, 105, 108, 111, 114, 117, 120, 121, 122, 123

Offset

1,2

Comments

Conjecture: a(n)/n-> 2, and 0 < 2 - 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" -> "1000", "10" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[9]] - 48   (* A288729 *)
Flatten[Position[st, 0]]  (* A288730 *)
Flatten[Position[st, 1]]  (* A288731 *)

Crossrefs

Cf. A288729, A288731.

Sequence in context: A071099 A078001 A072955 * A276784 A153129 A076871

Adjacent sequences: A288727 A288728 A288729 * A288731 A288732 A288733

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved