OFFSET
1,1
COMMENTS
One of several sets of "good primes" in section A14 of Guy.
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, 3rd ed. Springer, 2004.
LINKS
T. D. Noe, Table of n, a(n) for n=1..10001
MATHEMATICA
t={}; n=1; While[Length[t]<100, n++; p=Prime[n]; i=1; While[i<n && 2p<Prime[n-i]+Prime[n+i], i++ ]; If[i==n, AppendTo[t, p]]]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 06 2007
STATUS
approved