A288221 Positions of 0 in A288220; complement of A288222.

2, 3, 4, 5, 7, 8, 9, 11, 12, 14, 16, 17, 18, 19, 21, 23, 24, 25, 26, 27, 29, 30, 31, 33, 34, 36, 38, 39, 40, 42, 43, 44, 45, 47, 48, 50, 52, 53, 54, 55, 56, 58, 60, 61, 62, 63, 65, 66, 67, 69, 70, 72, 74, 75, 76, 77, 79, 81, 82, 83, 84, 85, 87, 89, 90, 91

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.38..., 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" -> "1000", "10" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[22]] - 48   (* A288220 *)
Flatten[Position[st, 0]]  (* A288221 *)
Flatten[Position[st, 1]]  (* A288222 *)

Crossrefs

Cf. A288220, A288222.

Sequence in context: A377536 A079734 A050730 * A346782 A229757 A319272

Adjacent sequences: A288218 A288219 A288220 * A288222 A288223 A288224

Keyword

nonn,easy

Author

Clark Kimberling, Jun 19 2017

Status

approved