A287186 Positions of 1 in A287457; complement of A287519.

1, 9, 16, 23, 27, 35, 42, 46, 50, 57, 64, 68, 72, 79, 83, 91, 98, 105, 109, 117, 124, 128, 132, 139, 143, 151, 155, 163, 170, 174, 178, 185, 192, 196, 200, 207, 211, 219, 223, 231, 238, 242, 246, 253, 257, 265, 272, 279, 283, 291, 298, 302, 306, 313, 320

Offset

1,2

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

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 *)

Crossrefs

Cf. A287457, A287519.

Sequence in context: A095961 A356295 A045911 * A134256 A199859 A046463

Adjacent sequences: A287183 A287184 A287185 * A287187 A287188 A287189

Keyword

nonn,easy

Author

Clark Kimberling, Jun 18 2017

Status

approved