A288667 Positions of 1 in A288665; complement of A288666.

6, 7, 14, 15, 18, 19, 22, 23, 26, 35, 36, 43, 44, 47, 48, 51, 52, 55, 60, 61, 64, 65, 68, 73, 74, 77, 78, 81, 86, 91, 100, 101, 108, 109, 116, 117, 120, 121, 124, 125, 128, 137, 138, 145, 146, 149, 150, 153, 154, 157, 162, 163, 166, 167, 170, 175, 176, 179

Offset

1,1

Comments

Conjecture: a(n)/n->3.93..., and if m denotes this number, then -3 < 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" -> "0110", "10" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[9]] - 48   (* A288665 *)
Flatten[Position[st, 0]]  (* A288666 *)
Flatten[Position[st, 1]]  (* A288667 *)

Crossrefs

Cf. A288665, A288666.

Sequence in context: A041999 A041319 A042315 * A319487 A283772 A080402

Adjacent sequences: A288664 A288665 A288666 * A288668 A288669 A288670

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved