A287803 Positions of 1 in A287801; complement of A287802.

1, 6, 7, 10, 15, 16, 21, 22, 25, 30, 31, 34, 39, 40, 45, 46, 49, 54, 55, 60, 61, 64, 69, 70, 73, 78, 79, 84, 85, 88, 93, 94, 97, 102, 103, 108, 109, 112, 117, 118, 123, 124, 127, 132, 133, 136, 141, 142, 147, 148, 151, 156, 157, 162, 163, 166, 171, 172, 175

Offset

1,2

Comments

Then d(n) is in {0, 2} for n >= 1. Indeed,

d(n) = 0 if n is in A001950, and d(n) = 1 if n is in A000201.

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. A000201, A001950, A287801, A287802.

Sequence in context: A102727 A315831 A287386 * A216348 A114949 A081359

Adjacent sequences: A287800 A287801 A287802 * A287804 A287805 A287806

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved