

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



