A288308 Positions of 1 in A288306; complement of A288307.

3, 5, 6, 9, 10, 12, 13, 17, 19, 20, 22, 23, 26, 27, 29, 30, 34, 37, 38, 41, 42, 44, 45, 48, 49, 51, 52, 56, 58, 59, 61, 62, 65, 66, 68, 69, 73, 76, 77, 81, 83, 84, 86, 87, 91, 93, 94, 96, 97, 100, 101, 103, 104, 108, 110, 111, 113, 114, 117, 118, 120, 121

Offset

1,1

Comments

Conjecture: -1 < 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" -> "0010", "1" -> "110"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288306 *)
Flatten[Position[st, 0]]  (* A288307 *)
Flatten[Position[st, 1]]  (* A288308 *)

Crossrefs

Cf. A288306, A288307.

Sequence in context: A304434 A334133 A286061 * A187574 A187833 A081121

Adjacent sequences: A288305 A288306 A288307 * A288309 A288310 A288311

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved