A286728 Positions of 1 in A286063; complement of A286727.

3, 4, 7, 12, 13, 18, 21, 22, 25, 30, 33, 34, 39, 40, 43, 48, 49, 54, 57, 58, 63, 64, 67, 72, 75, 76, 79, 84, 85, 90, 93, 94, 97, 102, 105, 106, 111, 112, 115, 120, 123, 124, 127, 132, 133, 138, 141, 142, 147, 148, 151, 156, 157, 162, 165, 166, 169, 174, 177

Offset

1,1

Comments

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

Specifically, d(n) = 0 if n is in A025147; d(n) = 2 if n is in A181155.

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. A025147, A181155, A286063, A286727.

Sequence in context: A132111 A164831 A085188 * A300332 A244819 A377600

Adjacent sequences: A286725 A286726 A286727 * A286729 A286730 A286731

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Status

approved