A180455 Central term of five successive prime numbers whose average is a prime.
79, 281, 349, 439, 643, 677, 787, 883, 1171, 1321, 1733, 1811, 2141, 2347, 2389, 2767, 2791, 3323, 3329, 3529, 3929, 4157, 4349, 4751, 4799, 4919, 4951, 5003, 5189, 5323, 5347, 5521, 5527, 5857, 5861, 6287, 6337, 6473, 6827, 6967, 6997, 7507, 7933, 8233
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A082077.
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[2500]],5,1],PrimeQ[ Mean[#]]&]] [[3]] (* Harvey P. Dale, Oct 30 2011 *)