OFFSET
1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
r = 2^(1/2); u[n_] := Floor[r*n]; (*A001951*)
v[n_] := Floor[(2 + r) n]; (*A001952*)
a[1] = 0; a[2] = 0; h = 200;
c = Table[u[n], {n, 1, h}];
d = Table[v[n], {n, 1, h}];
Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}]; (*A189078*)
Table[a[c[[n]]] = a[n], {n, 1, h}] (*A189078*)
Flatten[Position[%, 0]] (*A189079*)
Flatten[Position[%%, 1]] (*A189080*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 16 2011
STATUS
approved