A287551 Positions of 1 in A287530; complement of A287531.

1, 5, 8, 9, 13, 19, 22, 24, 27, 28, 32, 36, 39, 40, 46, 47, 51, 57, 58, 64, 68, 71, 73, 76, 77, 81, 85, 88, 89, 93, 99, 102, 104, 107, 108, 114, 115, 121, 123, 126, 127, 131, 135, 138, 139, 145, 146, 152, 154, 157, 158, 164, 165, 169, 173, 176, 177, 181, 187

Offset

1,2

Comments

Conjecture: a(n)/n -> 3.19..., and if m denotes this number, then -1 < m - a(n)/n) < 3 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" -> "001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[23]] - 48   (* A287530 *)
Flatten[Position[st, 0]]  (* A287531 *)
Flatten[Position[st, 1]]  (* A287551 *)

Crossrefs

Cf. A287530, A287531.

Sequence in context: A179832 A334919 A047616 * A375713 A231065 A314576

Adjacent sequences: A287548 A287549 A287550 * A287552 A287553 A287554

Keyword

nonn,easy

Author

Clark Kimberling, Jun 18 2017

Status

approved