A288598 Positions of 1 in A288596; complement of A288597.

2, 7, 9, 11, 15, 19, 24, 26, 27, 32, 34, 35, 40, 42, 44, 48, 49, 54, 56, 58, 62, 63, 68, 70, 72, 76, 80, 85, 87, 88, 89, 94, 96, 98, 102, 106, 111, 113, 114, 115, 120, 122, 124, 128, 132, 137, 139, 140, 145, 147, 148, 153, 155, 157, 161, 162, 163, 168, 170

Offset

1,1

Comments

Conjecture: a(n)/n->2.83..., and if m denotes this number, then -1 < m - 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" -> "1000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288596 *)
Flatten[Position[st, 0]]  (* A288597 *)
Flatten[Position[st, 1]]  (* A288598 *)

Crossrefs

Cf. A288596, A288597.

Sequence in context: A360944 A136498 A297826 * A277737 A082371 A090348

Adjacent sequences: A288595 A288596 A288597 * A288599 A288600 A288601

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved