OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{prs=Prime[Range[300]], s, o, len}, s=Select[prs, Mod[#, 8]==1&]; o= Select[ prs, Mod[#, 8]==7&]; len=Min[Length[s], Length[o]]; Total[#]/8&/@ Thread[ {Take[s, len], Take[o, len]}]] (* Harvey P. Dale, May 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved