login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A081415 Triply balanced primes: primes which are averages of both their immediate neighbor, their second neighbors and their third neighbors. 8
683783, 1056317, 1100261, 2241709, 2815301, 4746359, 10009049, 12003209, 13810981, 14907649, 15403009, 15730067, 16595081, 17518201, 19755301, 20378327, 21006487, 21574453, 21579983, 22237121, 22625179, 25876901 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Jud McCranie, Table of n, a(n) for n = 1..1000

EXAMPLE

p = 683383: 683747 + ... + p + .. + 683819 = 7p;683759 + .. + p + .. + 683807 = 5p;

683777 + p + 683789 = 3p

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], {n, 5, 1100000}] (from Robert G. Wilson v Jun 28 2004)

Transpose[Select[Partition[Prime[Range[1620000]], 7, 1], (#[[1]]+#[[7]])/2 == (#[[2]]+#[[6]])/2==(#[[3]]+#[[5]])/2==#[[4]]&]][[4]] (* Harvey P. Dale, Sep 13 2013 *)

CROSSREFS

Cf. A006562, A051795, A096710, A055380.

Sequence in context: A010095 A203713 A236986 * A101698 A185865 A238144

Adjacent sequences:  A081412 A081413 A081414 * A081416 A081417 A081418

KEYWORD

nonn

AUTHOR

Labos Elemer, Apr 02 2003

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified July 22 11:25 EDT 2014. Contains 244815 sequences.