A288938 Positions of 1 in A288936; complement of A288937.

3, 6, 7, 9, 10, 12, 13, 14, 16, 17, 18, 19, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 77, 78, 79, 80

Offset

1,1

Comments

a(n)/n -> 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

z = 11; (* number of iterates *)
s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "01" -> "011", "10" -> "011"}]
TableForm[Table[w[n], {n, 0, 10}]]
st = ToCharacterCode[w[z]] - 48   (* A288936 *)
Flatten[Position[st, 0]]  (* A288937 *)
Flatten[Position[st, 1]]  (* A288938 *)

Crossrefs

Cf. A288936, A288937.

Sequence in context: A129414 A157319 A138933 * A282140 A071530 A005767

Adjacent sequences: A288935 A288936 A288937 * A288939 A288940 A288941

Keyword

nonn,easy

Author

Clark Kimberling, Jun 28 2017

Status

approved