A289009 Positions of 1 in A289007; complement of A289008.

3, 6, 7, 10, 12, 13, 16, 19, 21, 22, 25, 28, 31, 32, 33, 35, 36, 39, 42, 45, 46, 49, 50, 52, 53, 54, 56, 57, 60, 63, 66, 67, 70, 72, 73, 76, 78, 79, 80, 81, 83, 84, 85, 87, 88, 91, 94, 97, 98, 101, 103, 104, 107, 110, 112, 113, 116, 119, 120, 121, 123, 124

Offset

1,1

Comments

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

Crossrefs

Cf. A289007, A289008.

Sequence in context: A138622 A080147 A192593 * A084463 A096604 A184873

Adjacent sequences: A289006 A289007 A289008 * A289010 A289011 A289012

Keyword

nonn,easy

Author

Clark Kimberling, Jun 26 2017

Status

approved