A189097 Zero-one sequence based on the sequence (3k-1): a(A016789(k))=a(k); a(A032766(k))=1-a(k), a(1)=0.

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

Offset

1

Links

Table of n, a(n) for n=1..135.

Mathematica

u[n_] := 3n-1;  (*A016789*)
a[1] = 0; h = 128;
c = (u[#1] &) /@ Range[2h];
d = (Complement[Range[Max[#1]], #1] &)[c]; (*A032766*)
Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}]; (*A189097*)
Table[a[c[[n]]] = a[n], {n, 1, h}]   (*A189097*)
Flatten[Position[%, 0]]  (*A189098*)
Flatten[Position[%%, 1]] (*A189099*)

Crossrefs

A188967, A016789, A032766, A189098, A189099.

Sequence in context: A070886 A262808 A217206 * A189094 A041004 A141736

Adjacent sequences: A189094 A189095 A189096 * A189098 A189099 A189100

Keyword

nonn

Author

Clark Kimberling, Apr 16 2011

Status

approved