%I
%S 0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,1,
%T 0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,1,
%U 0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,1
%N [nr][nrkr][kr], where r=(1+sqrt(5))/2, k=9, [ ]=floor.
%C See A188014.
%F a(n)=[nr][nr9r][9r], where r=(1+sqrt(5))/2.
%t r=(1+5^(1/2))/2; k=9;
%t t=Table[Floor[n*r]Floor[(nk)*r]Floor[k*r],{n,1,220}] (*A188027*)
%t Flatten[Position[t,0]] (*A188028*)
%t Flatten[Position[t,1]] (*A188029*)
%Y Cf. A188014, A188028, A188029.
%K nonn
%O 1
%A _Clark Kimberling_, Mar 19 2011
