A288740 Positions of 1 in A288736; complement of A288737.

2, 3, 8, 9, 11, 12, 14, 15, 20, 21, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 44, 45, 50, 51, 53, 54, 56, 57, 62, 63, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 83, 84, 86, 87, 92, 93, 98, 99, 101, 102, 104, 105, 110, 111, 116, 117, 119, 120, 122, 123, 125, 126

Offset

1,1

Comments

Conjecture: a(n)/n -> 2, and -2/3 < 2 - a(n)/n) < 1/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" -> "01"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[22]] - 48   (* A288736 *)
Flatten[Position[st, 0]]  (* A288737 *)
Flatten[Position[st, 1]]  (* A288740 *)

Crossrefs

Cf. A288736, A288737.

Sequence in context: A272830 A028821 A337261 * A290150 A237037 A283618

Adjacent sequences: A288737 A288738 A288739 * A288741 A288742 A288743

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved