A288755 Positions of 1 in A288710; complement of A287103.

4, 5, 13, 14, 18, 22, 23, 30, 31, 38, 39, 46, 47, 51, 55, 56, 60, 65, 69, 70, 77, 78, 82, 86, 87, 94, 95, 103, 104, 108, 112, 113, 120, 121, 129, 130, 134, 138, 139, 146, 147, 155, 156, 160, 164, 165, 169, 174, 178, 179, 186, 187, 191, 195, 196, 200, 205

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.53..., and if m denotes this number, then -1 < m - a(n)/n < 2 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, A287103.

Sequence in context: A132140 A102703 A283483 * A227897 A156638 A098868

Adjacent sequences: A288752 A288753 A288754 * A288756 A288757 A288758

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved