%I A121806
%S A121806 2,2,2,4,3,2,4,2,1,3,4,1,1,1,1,2,2,3,4,2,2,2,3,2,4,1,4,2,1,1,1,1,3,2,4,
%T A121806 3,1,2,2,2,2,1,2,2,4,1,1,4,3,1,4,3,4,2,3,2,1,1,4,3,4,1,1,3,1,3,2,2,4,1,
%U A121806 1,1,1,1,1,1,1,1,1,4,1,4,3,1,2,2,1,1,3,1,1,4,3,1,1,1,4,3,4,2
%N A121806 Primes modulo three as two color partition maps { red, blue} of which 
               there are four types:1-> {red, blue},2->{blue,red},3-> {red,red},
               4->{blue,blue}.
%C A121806 There are long runs of "1"'s.
%F A121806 a(n) = {1 + Mod[Prime[2*n-1], 3],1 + Mod[Prime[2*n], 3]/. {2, 3} -> 1 
               /. {3, 2} -> 2 /. { 2, 2} -> 3 /. {3, 3} -> 4
%t A121806 a = Partition[Table[1 + Mod[Prime[n], 3], {n, 3, 203}], 2] /. {2, 3} 
               -> 1 /. {3, 2} -> 2 /. { 2, 2} -> 3 /. {3, 3} -> 4
%Y A121806 Sequence in context: A053204 A064025 A054709 this_sequence A056944 A050493 
               A085454
%Y A121806 Adjacent sequences: A121803 A121804 A121805 this_sequence A121807 A121808 
               A121809
%K A121806 nonn,uned
%O A121806 1,1
%A A121806 Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 29 2006