OFFSET
1,1
COMMENTS
The graph shows the "race" between the two types of primes. - T. D. Noe, Nov 15 2006
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
a(n)=A108546(n+1). [From R. J. Mathar, Aug 15 2008]
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Nov 19 2005
EXTENSIONS
Edited, corrected and extended by Franklin T. Adams-Watters, Jul 19 2006
Corrected by T. D. Noe, Nov 15 2006
STATUS
approved