A219478 Prime numbers that are the mean of 5 successive primes.
79, 281, 349, 439, 643, 677, 787, 887, 1171, 1327, 1733, 1811, 2141, 2347, 2389, 2767, 2791, 3323, 3329, 3529, 3929, 4157, 4349, 4751, 4799, 4919, 4951, 5003, 5189, 5323, 5347, 5521, 5531, 5857, 5861, 6287, 6337, 6473, 6823, 6967, 6997, 7507, 7933, 8233
Offset: 1
Keywords
Examples
a(1) = 79 = (prime(20)+...+prime(24))/5 = (71+ 73+ 79+ 83+ 89)/5 a(2) = 281 = (prime(58)+...+prime(62))/5 = (271+ 277+ 281+ 283+ 293)/5 a(8) = 887 = (prime(151)+...+prime(155))/5 = (877+ 881+ 883+ 887+ 907)/5
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[(Mean /@ Partition[Prime[Range[1000]], 5, 1]), PrimeQ]