A187978 - OEIS

%I #8 Feb 01 2018 02:48:33

%S 2,4,7,9,11,12,14,16,19,21,23,24,26,28,31,33,36,38,40,41,43,45,48,50,

%T 52,53,55,57,60,62,65,67,69,70,72,74,77,79,81,82,84,86,89,91,93,94,96,

%U 98,101,103,106,108,110,111,113,115,118,120,122,123,125,127,130,132,135,137,139,140,142,144,147,149,151,152

%N Positions of 1 in A187976; complement of A187977.

%C See A187950 and A187976.

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

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

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

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

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

%Y Cf. A187950, A187976, A187977.

%K nonn

%O 1,1

%A _Clark Kimberling_, Mar 17 2011