A188291 - OEIS

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

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

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

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

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

%C See A187950.

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

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

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

%t Flatten[Position[seqA,0] ]   (* A188292 *)

%t Flatten[Position[seqA,1] ]   (* A188293 *)

%Y Cf. A187950, A188292, A188293.

%K nonn

%O 1

%A _Clark Kimberling_, Mar 26 2011