|
%I #8 Feb 01 2018 02:46:20
%S 1,3,4,5,6,8,9,10,11,13,15,16,17,18,20,21,22,23,25,27,28,29,30,32,33,
%T 34,35,37,38,39,40,42,44,45,46,47,49,50,51,52,54,56,57,58,59,61,62,63,
%U 64,66,67,68,69,71,73,74,75,76,78,79,80,81,83,85,86,87,88,90,91,92,93,95,97,98,99,100,102,103,104,105,107
%N Positions of 0 in A187969; complement of A187971.
%C See A187950, A187969.
%H G. C. Greubel, <a href="/A187970/b187970.txt">Table of n, a(n) for n = 1..10000</a>
%t r=2^(1/2);
%t seqA=Table[Floor[(n+3)r]-Floor[n*r]-Floor[3r], {n,1,220}] (* A187969 *)
%t Flatten[Position[seqA,0] ] (* A187970 *)
%t Flatten[Position[seqA,1] ] (* A187971 *)
%Y Cf. A187950, A187969, A187971.
%K nonn
%O 1,2
%A _Clark Kimberling_, Mar 17 2011
|
