A288258 Positions of 0 in A288257; complement of A288259.

1, 2, 4, 6, 7, 8, 10, 11, 12, 13, 15, 16, 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 34, 36, 37, 38, 39, 41, 42, 43, 45, 47, 48, 49, 50, 52, 53, 55, 56, 57, 59, 60, 61, 62, 64, 65, 66, 68, 70, 71, 72, 74, 75, 76, 77, 79, 80, 81, 83, 85, 86, 87, 88, 90

Offset

1,2

Comments

Conjecture: a(n)/n-> 1.36..., 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" -> "0010", "1" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288257 *)
Flatten[Position[st, 0]]  (* A288258 *)
Flatten[Position[st, 1]]  (* A288259 *)

Crossrefs

Cf. A288257, A288259.

Sequence in context: A268445 A053663 A324561 * A075313 A183858 A135673

Adjacent sequences: A288255 A288256 A288257 * A288259 A288260 A288261

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved