OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Module[{nn=60, pr1, pr5, len}, pr1=Select[Prime[Range[2nn]], Mod[#, 6]==1&]; pr5= Select[ Prime[Range[2nn]], Mod[#, 6]==5&]; len=Min[Length[pr1], Length[ pr5]]; Total/@Thread[{Take[pr1, len], Take[pr5, len]}]] (* Harvey P. Dale, Aug 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved