A038346 Sum of first n primes of form 4k+1.

5, 18, 35, 64, 101, 142, 195, 256, 329, 418, 515, 616, 725, 838, 975, 1124, 1281, 1454, 1635, 1828, 2025, 2254, 2487, 2728, 2985, 3254, 3531, 3812, 4105, 4418, 4735, 5072, 5421, 5774, 6147, 6536, 6933

Offset

1,1

Links

Jianing Song, Table of n, a(n) for n = 1..10001

Formula

a(n) = Sum_{k=1..n} A002144(k). - Michel Marcus, Oct 18 2021

Mathematica

Accumulate[Select[Prime[Range[100]], IntegerQ[(#-1)/4]&]] (* Harvey P. Dale, Jul 25 2011 *)

Prog

(PARI) a(n) = my(s=0); forprime(p=2, , if(p%4==1, s+=p; if(n--<1, return(s)))) \\ following Charles R Greathouse IV's program for A078586

Crossrefs

Cf. A002144, A002313, A006278, A038347.

Sequence in context: A063120 A031051 A294090 * A220243 A065007 A031428

Adjacent sequences: A038343 A038344 A038345 * A038347 A038348 A038349

Keyword

easy,nonn

Author

Den Roussel (DenRoussel(AT)webtv.net)

Extensions

Offset corrected by Jianing Song, Oct 18 2021

Status

approved