A187973 - OEIS

%I #8 Feb 01 2018 02:46:36

%S 3,5,8,10,15,17,20,22,27,29,32,34,37,39,44,46,49,51,56,58,61,63,66,68,

%T 73,75,78,80,85,87,90,92,97,99,102,104,107,109,114,116,119,121,126,

%U 128,131,133,136,138,143,145,148,150,155,157,160,162,167,169,172,174,177,179,184,186,189,191,196,198,201,203,206,208,213,215,218,220

%N Positions of 0 in A187972; complement of A187974.

%C See A187950.

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

%t r=2^(1/2);

%t seqA=Table[Floor[(n+4)r]-Floor[n*r]-Floor[4r], {n,1,220}]   (* A187972 *)

%t Flatten[Position[seqA,0] ]   (* A187973 *)

%t Flatten[Position[seqA,1] ]   (* A187974 *)

%Y Cf.A187950, A187972, A187974.

%K nonn

%O 1,1

%A _Clark Kimberling_, Mar 17 2011