A096710 Quadruply balanced primes: primes which are averages of their immediate neighbor primes, their second neighbor primes, their third neighbor primes and their fourth neighbor primes.

98303927, 580868459, 784857323, 857636141, 909894647, 951508837, 1367470823, 1480028171, 1850590099, 2106973159, 2121382079, 2409718043, 2635873907, 2704854637, 3225527099, 3386231579, 3823510039, 3824915671, 3905211517, 4123167667, 4127991383, 4386448117

Offset: 1

Author

Robert G. Wilson v, Jun 28 2004

Keywords

• nonn

Examples

			98303927 is a member because 98303927 = (98303903 + 98303951)/2 = (98303897 + 98303957)/2 = (98303873 + 98303981)/2 = (98303867 + 98303987)/2.
		

Links

• Donovan Johnson, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A006562, A051795, A096709, A055380.

Programs

Mathematica

a = {}; Do[p = 2Prime[n]; If[p == Prime[n - 1] + Prime[n + 1], If[ p == Prime[n - 2] + Prime[n + 2], If[p == Prime[n - 3] + Prime[n + 3], If[p == Prime[n - 4] + Prime[n + 4], Print[p/2]; AppendTo[a, p/2]]]]], {n, 6, 117039731}]; a
Select[Partition[Prime[Range[207405000]],9,1],(#[[1]]+#[[9]])/2 == (#[[2]]+ #[[8]])/2 == (#[[3]]+#[[7]])/2==(#[[4]]+#[[6]])/2==#[[5]]&][[All,5]] (* Harvey P. Dale, Dec 27 2018 *)

Extensions

More terms from Jud McCranie, Sep 29 2006