A234973 Primes that are 6 plus the sum of three consecutive primes.
29, 37, 47, 89, 103, 127, 137, 149, 179, 193, 229, 241, 257, 293, 307, 317, 401, 431, 463, 509, 557, 571, 587, 613, 719, 809, 823, 863, 937, 947, 967, 991, 1021, 1039, 1193, 1213, 1277, 1291, 1321, 1373, 1439, 1483, 1499, 1559, 1709, 1723, 1741, 1873, 1949, 1979
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Total[#] + 6&/@Partition[Prime[Range[200]], 3, 1], PrimeQ]
Comments