A288521 Positions of 0 in A288520; complement of A288522.

1, 2, 4, 5, 7, 8, 10, 11, 13, 15, 17, 18, 20, 22, 24, 25, 27, 29, 31, 32, 33, 35, 36, 37, 39, 40, 42, 44, 46, 47, 48, 50, 51, 52, 54, 55, 57, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 76, 77, 79, 80, 81, 83, 84, 86, 87, 89, 90, 92, 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" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[18]] - 48   (* A288520 *)
Flatten[Position[st, 0]]  (* A288521 *)
Flatten[Position[st, 1]]  (* A288522 *)

Crossrefs

Cf. A288520, A288522.

Sequence in context: A347782 A226896 A175302 * A067940 A230286 A336236

Adjacent sequences: A288518 A288519 A288520 * A288522 A288523 A288524

Keyword

nonn,easy

Author

Clark Kimberling, Jun 13 2017

Status

approved