A207527 Primes that are the sum of three consecutive primes in A034962.
131, 251, 337, 503, 743, 929, 1447, 1597, 3023, 3919, 4051, 4157, 5087, 5897, 6133, 7649, 7877, 8269, 9181, 9433, 9721, 11411, 11677, 13151, 13757, 14009, 14533, 18133, 18493, 18743, 20563, 21023, 21247, 22651, 22921, 23057, 23801, 23893, 24359, 24733, 24809
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A034962.
Programs
-
Mathematica
t = Select[Table[Prime[n] + Prime[n + 1] + Prime[n + 2], {n, 1000}], PrimeQ]; Select[Table[t[[n]] + t[[n + 1]] + t[[n + 2]], {n, Length[t] - 2}], PrimeQ]