A287519 Positions of 0 in A287457; complement of A287186.

2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 43, 44, 45, 47, 48, 49, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 80

Offset: 1

Author

Clark Kimberling, Jun 17 2017

Keywords

• nonn
• easy

Comments

Conjecture: a(n)/n -> 1.20..., 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

Crossrefs

Cf. A287457, A287186.

Programs

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "1000", "10" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[23]] - 48   (* A287457 *)
Flatten[Position[st, 0]]  (* A287519 *)
Flatten[Position[st, 1]]  (* A287186 *)