A288514 Positions of 1 in A288512; complement of A288513.

2, 4, 8, 12, 15, 18, 22, 25, 28, 32, 34, 36, 39, 41, 43, 46, 49, 52, 56, 58, 60, 63, 65, 67, 70, 73, 76, 80, 84, 88, 90, 92, 95, 99, 103, 105, 107, 110, 112, 114, 117, 119, 121, 124, 127, 130, 134, 138, 142, 144, 146, 149, 153, 157, 159, 161, 164, 166, 168

Offset

1,1

Comments

Conjecture: a(n)/n -> 2.91, 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" -> "0101", "10" -> "001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[19]] - 48   (* A288512 *)
Flatten[Position[st, 0]]  (* A288513 *)
Flatten[Position[st, 1]]  (* A288514 *)

Crossrefs

Cf. A288512, A288513.

Sequence in context: A050865 A354109 A354919 * A350616 A282667 A124395

Adjacent sequences: A288511 A288512 A288513 * A288515 A288516 A288517

Keyword

nonn,easy

Author

Clark Kimberling, Jun 13 2017

Status

approved