login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A038133
From a subtractive Goldbach conjecture: odd primes that are not cluster primes.
5
97, 127, 149, 191, 211, 223, 227, 229, 251, 257, 263, 269, 293, 307, 331, 337, 347, 349, 367, 373, 379, 383, 397, 409, 419, 431, 457, 479, 487, 499, 521, 541, 547, 557, 563, 569, 587, 593, 599, 631, 641, 673, 691, 701, 709, 719, 727, 733, 739, 743, 751
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
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
EXTENSIONS
More terms from Christian G. Bower, Feb 15 1999
STATUS
approved