A188319 - OEIS

%I #10 Apr 13 2018 06:32:10

%S 4,7,14,21,24,31,38,41,48,55,62,65,72,79,82,89,96,103,106,113,120,123,

%T 130,137,140,147,154,161,164,171,178,181,188,195,202,205,212,219,222,

%U 229,236,239,246,253,260,263,270,277,280,287,294,301,304,311,318,321,328,335,342,345,352,359,362,369,376,379,386,393,400,403,410,417,420,427

%N Positions of 0 in A188318; complement of A188320.

%C See A188014, A188318.

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

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

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

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

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

%Y Cf. A188014, A188318, A188320.

%K nonn

%O 1,1

%A _Clark Kimberling_, Mar 28 2011