A287103 Positions of 0 in A288710; complement of A288712.

1, 2, 3, 6, 7, 8, 9, 10, 11, 12, 15, 16, 17, 19, 20, 21, 24, 25, 26, 27, 28, 29, 32, 33, 34, 35, 36, 37, 40, 41, 42, 43, 44, 45, 48, 49, 50, 52, 53, 54, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 71, 72, 73, 74, 75, 76, 79, 80, 81, 83, 84, 85, 88, 89, 90, 91

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.39..., 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" -> "1000", "10" -> "0001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[54]] - 48   (* A288710 *)
Flatten[Position[st, 0]]  (* A287103 *)
Flatten[Position[st, 1]]  (* A288755 *)

Crossrefs

Cf. A288710, A288755.

Sequence in context: A008541 A060464 A039102 * A050023 A047505 A039071

Adjacent sequences: A287100 A287101 A287102 * A287104 A287105 A287106

Keyword

nonn,easy

Author

Clark Kimberling, Jun 24 2017

Status

approved