OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Module[{nn=100, p1, p3, len}, p1=Select[Prime[Range[nn]], Mod[#, 4]==1&]; p3= Rest[Select[Prime[Range[nn]], Mod[#, 4]==3&]]; len=Min[Length[p1], Length[ p3]]; Times@@@Thread[{Take[p1, len], Take[p3, len]}]] (* Harvey P. Dale, Jan 09 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Den Roussel (DenRoussel(AT)webtv.net)
STATUS
approved