A288602 Positions of 1 in A288600; complement of A288601.

2, 5, 7, 10, 11, 14, 16, 17, 20, 22, 25, 26, 27, 30, 32, 35, 36, 39, 41, 42, 43, 46, 48, 51, 52, 55, 57, 58, 61, 63, 66, 67, 68, 69, 72, 74, 77, 78, 81, 83, 84, 87, 89, 92, 93, 94, 97, 99, 102, 103, 106, 108, 109, 110, 111, 114, 116, 119, 120, 123, 125, 126

Offset

1,1

Comments

Conjecture: a(n)/n->2, and -1/2 < 2 - 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" -> "0101", "1" -> "1001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288600 *)
Flatten[Position[st, 0]]  (* A288601 *)
Flatten[Position[st, 1]]  (* A288602 *)

Crossrefs

Cf. A288600, A288601.

Sequence in context: A284470 A112730 A376898 * A049842 A018636 A068007

Adjacent sequences: A288599 A288600 A288601 * A288603 A288604 A288605

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved