A188046 - OEIS

%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