|
%I #10 Apr 13 2018 06:32:16
%S 1,2,3,5,6,8,9,10,11,12,13,15,16,17,18,19,20,22,23,25,26,27,28,29,30,
%T 32,33,34,35,36,37,39,40,42,43,44,45,46,47,49,50,51,52,53,54,56,57,58,
%U 59,60,61,63,64,66,67,68,69,70,71,73,74,75,76,77,78,80,81,83,84,85,86,87,88,90,91,92,93,94,95,97,98,99,100,101,102,104,105,107,108,109,110,111
%N Positions of 1 in A188318; complement of A188319.
%C See A188014, A188318.
%H G. C. Greubel, <a href="/A188320/b188320.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, A188319.
%K nonn
%O 1,2
%A _Clark Kimberling_, Mar 28 2011
|
