A189817 Positions of 0 in A189816; complement of A189818.

1, 4, 5, 6, 7, 8, 9, 10, 13, 16, 19, 22, 25, 28, 31, 32, 33, 34, 35, 36, 37, 40, 41, 42, 43, 44, 45, 46, 49, 50, 51, 52, 53, 54, 55, 58, 59, 60, 61, 62, 63, 64, 67, 68, 69, 70, 71, 72, 73, 76, 77, 78, 79, 80, 81, 82, 85, 86, 87, 88, 89, 90, 91, 94, 97, 100, 103, 106, 109, 112, 113, 114, 115, 116

Offset

1,2

Comments

See A189816.

Links

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

Mathematica

a[1] = 0; h = 180;
Table[a[3 k - 2] = 0, {k, 1, h}];
Table[a[3 k - 1] = 1 - a[k], {k, 1, h}];
Table[a[3 k] = 1 - a[k], {k, 1, h}];
Table[a[n], {n, 1, h}]   (*A189816*)
Flatten[Position[%, 0]]  (*A189817*)
Flatten[Position[%%, 1]] (*A189818*)

Crossrefs

Cf. A189816, A189818, A189819.

Sequence in context: A306298 A227763 A039091 * A214420 A173888 A341051

Adjacent sequences: A189814 A189815 A189816 * A189818 A189819 A189820

Keyword

nonn

Author

Clark Kimberling, Apr 28 2011

Status

approved