A287802 Positions of 0 in A287801; complement of A287803.

2, 3, 4, 5, 8, 9, 11, 12, 13, 14, 17, 18, 19, 20, 23, 24, 26, 27, 28, 29, 32, 33, 35, 36, 37, 38, 41, 42, 43, 44, 47, 48, 50, 51, 52, 53, 56, 57, 58, 59, 62, 63, 65, 66, 67, 68, 71, 72, 74, 75, 76, 77, 80, 81, 82, 83, 86, 87, 89, 90, 91, 92, 95, 96, 98, 99

Offset: 1

Author

Clark Kimberling, Jun 03 2017

Keywords

• nonn
• easy

Comments

Let d(n) = 3n/2 - a(n). Then d(n) is in {-1/2, 0, 1/2, 1} for n >= 1. Indeed,

d(n) = - 1/2 if n is in A075317; d(n) = 1/2 if n is in A075318;

d(n) = 0 if n is in A283234; d(n) = 1 if n is in A283233.

Links

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

Crossrefs

Cf. A075317, A075318, A283233, A283234, A287801, A287803.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "100", "1" -> "001"}]
st = ToCharacterCode[w1] - 48    (* A287801 *)
Flatten[Position[st, 0]]  (* A287802 *)
Flatten[Position[st, 1]]  (* A287803 *)