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
Keywords
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
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 *)
Comments