|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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.
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|