A288168 Positions of 0 in A288167; complement of A288169.

1, 2, 4, 5, 6, 7, 8, 9, 11, 12, 13, 15, 16, 17, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 46, 47, 48, 50, 51, 52, 53, 54, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 77, 78, 79, 81, 82

Offset

1,2

Comments

Conjecture: -1 < 6/5 - 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" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288167 *)
Flatten[Position[st, 0]]  (* A288168 *)
Flatten[Position[st, 1]]  (* A288169 *)

Crossrefs

Cf. A288167, A288169.

Sequence in context: A247419 A039245 A039188 * A085007 A288992 A289017

Adjacent sequences: A288165 A288166 A288167 * A288169 A288170 A288171

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved