A289114 Positions of 1 in A289112; complement of A289113.

3, 7, 10, 14, 16, 17, 20, 23, 24, 26, 27, 30, 32, 33, 36, 38, 41, 42, 45, 47, 48, 50, 51, 54, 56, 57, 59, 60, 63, 65, 68, 70, 71, 73, 74, 77, 78, 81, 83, 84, 86, 87, 90, 91, 94, 96, 97, 99, 100, 103, 107, 108, 111, 112, 115, 117, 118, 121, 123, 124, 126, 127

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.87..., and if m denotes this number, then -2 < a(n)/n < 0 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" -> "011", "10" -> "001"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A289112 *)
Flatten[Position[st, 0]]  (* A289113 *)
Flatten[Position[st, 1]]  (* A289114 *)

Crossrefs

Cf. A289112, A289113.

Sequence in context: A363022 A289167 A374639 * A289027 A027704 A061289

Adjacent sequences: A289111 A289112 A289113 * A289115 A289116 A289117

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved