A188189 - OEIS

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

%S 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,

%T 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,

%U 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1

%N [nr]-[kr]-[nr-kr], where r=sqrt(5), k=2, [ ]=floor.

%C See A188014.

%F a(n)=[nr]-[2r]-[nr-2r], where r=sqrt(5).

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

%t t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r],{n,1,220}]   (*A188189*)

%t Flatten[Position[t,0]]  (*A188190*)

%t Flatten[Position[t,1]]  (*A188191*)

%Y Cf. A188014, A188190, A188191.

%K nonn

%O 1

%A _Clark Kimberling_, Mar 23 2011