A189080 Positions of 1 in A189078; complement of A189079.

3, 4, 5, 6, 7, 8, 9, 11, 12, 15, 16, 21, 22, 29, 31, 34, 41, 43, 44, 47, 48, 57, 58, 60, 61, 62, 64, 66, 67, 68, 78, 80, 81, 82, 84, 85, 86, 87, 88, 90, 92, 93, 94, 95, 96, 102, 109, 110, 112, 113, 114, 115, 118, 119, 120, 121, 122, 123, 124, 126, 127, 129, 130, 131, 132, 133, 134, 135, 136, 143, 144, 153

Offset

1,1

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: A026454 A026458 A059109 * A039113 A130399 A067026

Adjacent sequences: A189077 A189078 A189079 * A189081 A189082 A189083

Keyword

nonn

Author

Clark Kimberling, Apr 16 2011

Status

approved