|
%I #10 Jan 17 2018 03:48:22
%S 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,
%T 44,45,46,49,50,51,52,53,54,55,58,59,60,61,62,63,64,67,68,69,70,71,72,
%U 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
%N Positions of 0 in A189816; complement of A189818.
%C See A189816.
%H G. C. Greubel, <a href="/A189817/b189817.txt">Table of n, a(n) for n = 1..10000</a>
%t a[1] = 0; h = 180;
%t Table[a[3 k - 2] = 0, {k, 1, h}];
%t Table[a[3 k - 1] = 1 - a[k], {k, 1, h}];
%t Table[a[3 k] = 1 - a[k], {k, 1, h}];
%t Table[a[n], {n, 1, h}] (*A189816*)
%t Flatten[Position[%, 0]] (*A189817*)
%t Flatten[Position[%%, 1]] (*A189818*)
%Y Cf. A189816, A189818, A189819.
%K nonn
%O 1,2
%A _Clark Kimberling_, Apr 28 2011
|
