|
%I #11 Apr 13 2018 06:30:11
%S 1,3,5,6,8,10,11,13,15,16,17,18,20,22,23,25,27,28,29,30,32,34,35,37,
%T 39,40,42,44,45,46,47,49,51,52,54,56,57,58,59,61,63,64,66,68,69,71,73,
%U 74,75,76,78,80,81,83,85,86,87,88,90,92,93,95,97,98,99,100,102,104,105,107,109,110,112,114,115,116,117,119
%N Positions of 1 in A188044; complement of A188045.
%C See A188014, A188044.
%H G. C. Greubel, <a href="/A188046/b188046.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}] (* A188044 *)
%t Flatten[Position[t,0]] (* A188045 *)
%t Flatten[Position[t,1]] (* A188046 *)
%Y Cf. A188014, A188044, A188045.
%K nonn
%O 1,2
%A _Clark Kimberling_, Mar 19 2011
|
