A189079 Positions of 0 in A189078; complement of A189080.

1, 2, 10, 13, 14, 17, 18, 19, 20, 23, 24, 25, 26, 27, 28, 30, 32, 33, 35, 36, 37, 38, 39, 40, 42, 45, 46, 49, 50, 51, 52, 53, 54, 55, 56, 59, 63, 65, 69, 70, 71, 72, 73, 74, 75, 76, 77, 79, 83, 89, 91, 97, 98, 99, 100, 101, 103, 104, 105, 106, 107, 108, 111, 116, 117, 125, 128

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

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

Cf. A189078.

Sequence in context: A299317 A095914 A368159 * A045218 A177856 A343476

Adjacent sequences: A189076 A189077 A189078 * A189080 A189081 A189082

Keyword

nonn

Author

Clark Kimberling, Apr 16 2011

Status

approved