A188373 - OEIS

%I #8 Apr 12 2018 02:45:33

%S 3,10,13,17,20,27,30,34,37,44,47,51,54,58,61,68,71,75,78,85,88,92,95,

%T 99,102,109,112,116,119,126,129,133,136,143,146,150,153,157,160,167,

%U 170,174,177,184,187,191,194,198,201,208,211,215,218,225,228,232,235,242,245,249,252,256,259,266,269,273,276,283,286

%N Positions of 1 in A188371; complement of A188372.

%C See A188014.

%H G. C. Greubel, <a href="/A188373/b188373.txt">Table of n, a(n) for n = 1..10000</a>

%t r=2^(-1/2); k=6;

%t t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r],{n,1,220}]   (*A188371*)

%t Flatten[Position[t,0]]  (*A188372*)

%t Flatten[Position[t,1]]  (*A188373*)

%Y Cf. A188014, A188371, A188373.

%K nonn

%O 1,1

%A _Clark Kimberling_, Mar 29 2011