%I #4 Mar 30 2012 18:57:32
%S 1,1,2,1,1,0,0,1,2,2,1,0,0,1,2,2,1,1,0,1,1,0,1,1,2,2,1,0,0,1,2,2,1,0,
%T 0,1,1,2,1,1,2,1,1,0,1,1,2,2,1,0,0,1,2,2,1,0,0,1,1,2,1,1,2,1,1,0,0,1,
%U 2,2,1,0,0,1,2,2,1,1,0,1,1,0,1,1,2,1,1,0,0,1,2,2,1,0,0,1,1,2,1,1,0,1,1,0,1,1,2,2,1,0,0,1,2,2,1,0,0,1,1,2,1,1,2,1,1,0,1,1,2,2,1,0
%N (A022838 mod 2)+(A054406 mod 2)
%C A022838: Beatty sequence for r=sqrt(3),
%C A054406: Beatty sequence for s=(3+sqrt(3))/2 (complement
%C of A022838), so that
%C A191336(n)=([nr] mod 2)+([ns] mod 2), where [ ]=floor.
%C A191336(n)=(number of odd numbers in {[nr],[ns]}).
%F a(n)=([nr] mod 2)+([ns] mod 2), where r=sqrt(3), s=r/(r-1), and [ ]=floor.
%t r = Sqrt[3]; s = r/(r - 1); h = 320;
%t u = Table[Floor[n*r], {n, 1, h}] (* A022838 *)
%t v = Table[Floor[n*s], {n, 1, h}] (* A054406 *)
%t w = Mod[u, 2] + Mod[v, 2] (* A191336 *)
%t Flatten[Position[w, 0]] (* A191337 *)
%t Flatten[Position[w, 1]] (* A191338 *)
%t Flatten[Position[w, 2]] (* A191339 *)
%Y Cf. A191329, A191337, A191338, A191339.
%K nonn
%O 1,3
%A _Clark Kimberling_, Jun 01 2011