This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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. 9
 98303927, 580868459, 784857323, 857636141, 909894647, 951508837, 1367470823, 1480028171, 1850590099, 2106973159, 2121382079, 2409718043, 2635873907, 2704854637, 3225527099, 3386231579, 3823510039, 3824915671, 3905211517, 4123167667, 4127991383, 4386448117 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Donovan Johnson, Table of n, a(n) for n = 1..1000 EXAMPLE 98303927 is a member because 98303927 = (98303903 + 98303951)/2 = (98303897 + 98303957)/2 = (98303873 + 98303981)/2 = (98303867 + 98303987)/2. 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], 9, 1], (#[]+#[])/2 == (#[]+ #[])/2 == (#[]+#[])/2==(#[]+#[])/2==#[]&][[All, 5]] (* Harvey P. Dale, Dec 27 2018 *) CROSSREFS Cf. A006562, A051795, A096709, A055380. Sequence in context: A214559 A326183 A184151 * A322682 A322692 A322683 Adjacent sequences:  A096707 A096708 A096709 * A096711 A096712 A096713 KEYWORD nonn AUTHOR Robert G. Wilson v, Jun 28 2004 EXTENSIONS More terms from Jud McCranie, Sep 29 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 19 11:09 EST 2019. Contains 329319 sequences. (Running on oeis4.)