A288134 Positions of 1 in A288132; complement of A288133.

3, 5, 6, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74

Offset

1,1

Comments

a(n+1)/a(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" -> "0010", "1" -> "11"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288132 *)
Flatten[Position[st, 0]]  (* A288133 *)
Flatten[Position[st, 1]]  (* A288134 *)

Crossrefs

Cf. A288132, A288133.

Sequence in context: A161529 A133043 A094058 * A175966 A121882 A105206

Adjacent sequences: A288131 A288132 A288133 * A288135 A288136 A288137

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved