|
%I #8 Feb 01 2018 02:46:28
%S 2,7,12,14,19,24,26,31,36,41,43,48,53,55,60,65,70,72,77,82,84,89,94,
%T 96,101,106,111,113,118,123,125,130,135,140,142,147,152,154,159,164,
%U 166,171,176,181,183,188,193,195,200,205,210,212,217,222,224,229,234,239,241,246,251,253,258,263,265,270,275,280,282,287,292,294,299,304,309,311,316
%N Positions of 1 in A187969; complement of A187970.
%C See A187950, A187969.
%H G. C. Greubel, <a href="/A187971/b187971.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, A187970.
%K nonn
%O 1,1
%A _Clark Kimberling_, Mar 17 2011
|
