login
A288468
Positions of 1 in A288466; complement of A288467.
5
2, 4, 6, 9, 11, 14, 17, 19, 22, 25, 27, 29, 33, 37, 40, 42, 45, 48, 50, 52, 56, 60, 63, 65, 67, 71, 75, 78, 80, 83, 86, 88, 90, 94, 98, 101, 103, 105, 109, 113, 116, 118, 121, 124, 126, 129, 132, 134, 136, 140, 143, 145, 147, 150, 152, 154, 158, 161, 163
OFFSET
1,1
COMMENTS
Conjecture: lim_{n->inf} a(n)/n = 1.76..., and if m denotes this number, then -1 < m - a(n)/n < 1 for n >= 1.
LINKS
MATHEMATICA
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0101", "1" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48 (* A288466 *)
Flatten[Position[st, 0]] (* A288467 *)
Flatten[Position[st, 1]] (* A288468 *)
CROSSREFS
Sequence in context: A138326 A274214 A276223 * A271906 A050502 A293956
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 11 2017
STATUS
approved