%I #8 Apr 12 2018 02:45:04
%S 1,4,5,7,8,11,14,15,18,21,22,24,25,28,31,32,35,38,39,41,42,45,48,49,
%T 52,55,56,59,62,63,65,66,69,72,73,76,79,80,82,83,86,89,90,93,96,97,
%U 100,103,104,106,107,110,113,114,117,120,121,123,124,127,130,131,134,137,138,140,141,144,147,148,151,154,155,158,161,162
%N Positions of 0 in A188321; complement of A188323.
%C See A188014.
%H G. C. Greubel, <a href="/A188322/b188322.txt">Table of n, a(n) for n = 1..10000</a>
%t r=2^(-1/2); k=5;
%t t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r],{n,1,220}] (*A188321*)
%t Flatten[Position[t,0]] (*A188322*)
%t Flatten[Position[t,1]] (*A188323*)
%Y Cf. A188014, A188321, A188323.
%K nonn
%O 1,2
%A _Clark Kimberling_, Mar 28 2011