A286727 Positions of 0 in A286063; complement of A286728.

1, 2, 5, 6, 8, 9, 10, 11, 14, 15, 16, 17, 19, 20, 23, 24, 26, 27, 28, 29, 31, 32, 35, 36, 37, 38, 41, 42, 44, 45, 46, 47, 50, 51, 52, 53, 55, 56, 59, 60, 61, 62, 65, 66, 68, 69, 70, 71, 73, 74, 77, 78, 80, 81, 82, 83, 86, 87, 88, 89, 91, 92, 95, 96, 98, 99

Offset

1,2

Comments

The number d(n) = 3n/2 - a(n) is in {-1/2, 0, 1/2, 1} for n >= 1. Specifically,

d(n) = -1/2 if n is in A129771; d(n) = 1/2 if n is in A092246;

d(n) = 0 if n is in 2*A181155; d(n) = 1 if n is in 2*A026147.

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" -> "001", "1" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A286063 *)
Flatten[Position[st, 0]]  (* A286727 *)
Flatten[Position[st, 1]]  (* A286728 *)

Crossrefs

Cf. A286063, A286728.

Sequence in context: A126971 A175354 A224778 * A090946 A299417 A047442

Adjacent sequences: A286724 A286725 A286726 * A286728 A286729 A286730

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Status

approved