A289002 Positions of 0 in A289235; complement of A289151.

1, 2, 4, 5, 6, 7, 8, 9, 11, 12, 13, 15, 17, 18, 19, 20, 22, 24, 25, 27, 28, 29, 30, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 49, 50, 51, 53, 54, 55, 56, 57, 58, 60, 61, 62, 63, 64, 65, 67, 68, 69, 71, 72, 73, 75, 76, 77, 78, 79, 80, 82, 84, 85

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.28..., and if m denotes this number, then -1 < m - a(n)/n < m - 1 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

z = 11; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "100", "10" -> "000"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289235 *)
Flatten[Position[st, 0]]  (* A289002 *)
Flatten[Position[st, 1]]  (* A289151 *)

Crossrefs

Cf. A289235, A289151.

Sequence in context: A288992 A289017 A289105 * A039114 A188372 A345921

Adjacent sequences: A288999 A289000 A289001 * A289003 A289004 A289005

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved