A284817 a(n) = 2n - 1 - A284776(n).

0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0

Offset

1

Links

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

Formula

a(n) = 2n - 1 - A284776.

Example

A284776 = (1,3,4,7,9,11,12,15,16,19, ...), so that a(1) = 1-1 = 0, a(2) = 3-3 = 0.

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)
u = Flatten[Position[s, 0]] ; (* A284776 *)
v = Flatten[Position[s, 1]];  (* A284777 *)
t = Table[2 n - 1 - u[[n]], {n, 1, 200}]; (* A284817 *)
Flatten[Position[t, 0]]; (* A284818 *)
Flatten[Position[t, 1]]; (* A284819 *)

Crossrefs

Cf. A284776, A284818, A284819.

Sequence in context: A156729 A188079 A049320 * A309766 A354033 A328979

Adjacent sequences: A284814 A284815 A284816 * A284818 A284819 A284820

Keyword

nonn,easy

Author

Clark Kimberling, Apr 14 2017

Status

approved