A189138 Zero-one sequence based on the sequence 1+n^2: a(A002522(k))=a(k); a(A164386(k))=1-a(k), a(1)=0.

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

Offset

1

Links

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

Mathematica

u[n_] := 1+n^2;  (*A002522*)
a[1] = 0; h = 128;
c = (u[#1] &) /@ Range[2h];
d = (Complement[Range[Max[#1]], #1] &)[c]; (*A164386*)
Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}]; (*A189138*)
Table[a[c[[n]]] = a[n], {n, 1, h}]   (*A189138*)
Flatten[Position[%, 0]]  (*A189139*)
Flatten[Position[%%, 1]] (*A189140*)

Crossrefs

Cf. A188967, A189139, A189140, A002522, A165386, A188973.

Sequence in context: A189091 A344863 A145006 * A213719 A286937 A080813

Adjacent sequences: A189135 A189136 A189137 * A189139 A189140 A189141

Keyword

nonn

Author

Clark Kimberling, Apr 17 2011

Status

approved