%I #11 Nov 21 2013 12:48:45
%S 3,5,7,13,11,17,19,29,23,37,31,41,43,53,47,61,59,73,67,89,71,97,79,
%T 101,83,109,103,113,107,137,127,149,131,157,139,173,151,181,163,193,
%U 167,197,179,229,191,233,199,241,211,257,223,269,227,277,239,281,251,293,263
%N a(2k-1) = k-th prime congruent to 3 mod 4, a(2k) = k-th prime congruent to 1 mod 4.
%C The graph shows the "race" between the two types of primes. - _T. D. Noe_, Nov 15 2006
%H Harvey P. Dale, <a href="/A111745/b111745.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n)=A108546(n+1). [From _R. J. Mathar_, Aug 15 2008]
%t Module[{prs=Prime[Range[70]],m3,m1,min},m3=Select[prs,Mod[#,4]==3&];m1=Select[prs,Mod[#,4]==1&];min=Min[Length[m1],Length[m3]];Riffle[ Take[m3,min],Take[m1,min]]] (* _Harvey P. Dale_, Apr 15 2012 *)
%Y Cf. bisections A002144, A002145.
%K nonn
%O 1,1
%A _Jon Perry_, Nov 19 2005
%E Edited, corrected and extended by _Franklin T. Adams-Watters_, Jul 19 2006
%E Corrected by _T. D. Noe_, Nov 15 2006