login
Positions of 0 in the zero-one sequence [nr]-[4r]-[nr-4r], where r=sqrt(3), n>=1.
1

%I #4 Mar 30 2012 18:57:22

%S 4,15,30,45,56,71,86,101,112,127,142,157,168,183,198,209,224,239,254,

%T 265,280,295,310,321,336,351,366,377,392,407,418,433,448,463,474,489,

%U 504,519,530,545,560,575,586,601,616,627,642,657,672,683,698,713,728,739,754,769,780,795,810,825,836,851,866,881,892,907,922,937,948,963,978,989

%N Positions of 0 in the zero-one sequence [nr]-[4r]-[nr-4r], where r=sqrt(3), n>=1.

%C See A188014.

%t r=3^(1/2)); k=4;

%t t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r],{n,1,220}] Flatten[Position[t,0]] (*A188075*)

%t Flatten[Position[t,1]] (* complement of A188075 *)

%Y Cf. A188014, A188068.

%K nonn

%O 1,1

%A _Clark Kimberling_, Mar 20 2011