OFFSET
1,1
COMMENTS
Erdős asks if there are infinitely many primes p such that every even number <= p-3 can be expressed as the difference between two primes each <= p. Sequence gives primes not having this property.
REFERENCES
R. K. Guy, Unsolved Problems In Number Theory, section C1.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
Richard Blecksmith, Paul Erdős and J. L. Selfridge, Cluster Primes, Amer. Math. Monthly, 106 (1999), 43-48.
Eric Weisstein's World of Mathematics, Cluster Prime.
MATHEMATICA
m=1000; lst={}; n=PrimePi[m]-1; p=Table[Prime[i+1], {i, n}]; d=Table[0, {m/2}]; For[i=2, i<=n, i++, For[j=1, j<i, j++, diff=p[[i]]-p[[j]]; d[[diff/2]]++ ]; c=Count[Take[d, (p[[i]]-3)/2], 0]; If[c>0, AppendTo[lst, p[[i]]]]]; lst
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
EXTENSIONS
More terms from Christian G. Bower, Feb 15 1999
STATUS
approved