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,1

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

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 *)

Crossrefs

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

Sequence in context: A116214 A161389 A266118 * A371284 A214207 A302497

Adjacent sequences: A287799 A287800 A287801 * A287803 A287804 A287805

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved