A288428 Positions of 1 in A288426; complement of A288427.

2, 6, 8, 9, 12, 13, 17, 18, 22, 24, 25, 26, 30, 32, 33, 36, 37, 38, 42, 44, 45, 48, 49, 53, 54, 55, 59, 61, 62, 65, 66, 70, 71, 75, 77, 78, 79, 80, 84, 86, 87, 90, 91, 95, 96, 100, 102, 103, 104, 108, 110, 111, 114, 115, 116, 117, 121, 123, 124, 127, 128

Offset

1,1

Comments

Conjecture: a(n)/n->2.07..., 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", "10" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288426 *)
Flatten[Position[st, 0]]  (* A288427 *)
Flatten[Position[st, 1]]  (* A288428 *)

Crossrefs

Cf. A288426, A288427.

Sequence in context: A023714 A355274 A096507 * A050675 A262981 A336745

Adjacent sequences: A288425 A288426 A288427 * A288429 A288430 A288431

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2017

Status

approved