login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

[nr]-[nr-kr]-[kr], where r=(1+sqrt(5))/2, k=6, [ ]=floor.
5

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

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

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

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

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

%C See A188014.

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

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

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

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

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

%Y A188014, A188018, A188019.

%K nonn

%O 1

%A _Clark Kimberling_, Mar 19 2011