OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
ListTools:-PartialSums(select(isprime, [seq(i, i=3..1000, 4)])); # Robert Israel, Feb 27 2017
MATHEMATICA
Accumulate[Select[Prime[Range[250]], Mod[#, 4]==3&]] (* Harvey P. Dale, Jul 04 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Den Roussel (DenRoussel(AT)webtv.net)
STATUS
approved