A288993 Positions of 1 in A288991; complement of A288992.

3, 10, 14, 18, 21, 25, 28, 32, 35, 42, 49, 52, 56, 59, 66, 70, 74, 77, 81, 85, 92, 95, 99, 102, 109, 113, 117, 120, 124, 127, 131, 134, 141, 148, 155, 159, 163, 166, 173, 180, 183, 187, 191, 198, 205, 212, 215, 219, 222, 229, 236, 239, 243, 247, 254, 258

Offset

1,1

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A288991, A288992.

Sequence in context: A289106 A289018 A316672 * A190706 A146309 A288169

Adjacent sequences: A288990 A288991 A288992 * A288994 A288995 A288996

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved