A286727 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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"}]