A189818 Positions of 1 in A189816; complement of A189817.

2, 3, 11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 38, 39, 47, 48, 56, 57, 65, 66, 74, 75, 83, 84, 92, 93, 95, 96, 98, 99, 101, 102, 104, 105, 107, 108, 110, 111, 119, 120, 122, 123, 125, 126, 128, 129, 131, 132, 134, 135, 137, 138, 146, 147, 149, 150, 152, 153, 155, 156, 158, 159, 161, 162, 164, 165, 173, 174, 176, 177, 179, 180

Offset

1,1

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, A189817, A189819.

Sequence in context: A334054 A035122 A085305 * A116032 A116029 A060812

Adjacent sequences: A189815 A189816 A189817 * A189819 A189820 A189821

Keyword

nonn

Author

Clark Kimberling, Apr 28 2011

Status

approved