A354573 Prime partial sums of the primes == 5 (mod 6).

5, 173, 439, 1117, 1433, 2633, 3643, 6173, 11489, 22727, 25867, 36523, 51341, 71707, 80347, 89413, 98947, 102203, 119869, 135209, 155653, 173087, 182233, 196387, 226063, 298031, 353921, 367219, 460127, 483179, 498859, 547387, 555683, 572581, 826201, 932801, 988453, 1057741, 1203421, 1253999

Offset: 1

Author

J. M. Bergot and Robert Israel, Aug 18 2022

Keywords

• nonn

Comments

Primes in A038361.

Examples

			a(2) = 173 is a term because 173 = A038361(7) = 5+11+17+23+29+41+47 and is prime.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A038361, A354572.

Programs

Maple

R:= NULL: count:= 0: t:= 0:
for p from 5 by 6 while count < 100 do
  if isprime(p) then
    t:= t+p;
    if isprime(t) then R:= R, t; count:= count+1 fi
  fi
od:
R;

Mathematica

Select[Accumulate[Select[Prime[Range[1000]], Mod[#, 6] == 5 &]], PrimeQ] (* Amiram Eldar, Aug 19 2022 *)