A288513 Positions of 0 in A288512; complement of A288514.

1, 3, 5, 6, 7, 9, 10, 11, 13, 14, 16, 17, 19, 20, 21, 23, 24, 26, 27, 29, 30, 31, 33, 35, 37, 38, 40, 42, 44, 45, 47, 48, 50, 51, 53, 54, 55, 57, 59, 61, 62, 64, 66, 68, 69, 71, 72, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 87, 89, 91, 93, 94, 96, 97, 98, 100

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.52..., 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" -> "001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[19]] - 48   (* A288512 *)
Flatten[Position[st, 0]]  (* A288513 *)
Flatten[Position[st, 1]]  (* A288514 *)

Crossrefs

Cf. A288512, A288514.

Sequence in context: A335740 A352873 A047984 * A125236 A137624 A238246

Adjacent sequences: A288510 A288511 A288512 * A288514 A288515 A288516

Keyword

nonn,easy

Author

Clark Kimberling, Jun 13 2017

Status

approved