|
| |
|
|
A158719
|
|
Primes p such that p1=Floor[p/2]+p is not prime and p2=Ceiling[p/2]+p is not prime, p3=Floor[p1/2]+p1 is not prime and p5=Ceiling[p1/2]+p1 is not prime, p4=Floor[p2/2]+p2 is not prime and p6=Ceiling[p2/2]+p2 is not prime.
|
|
4
| |
|
|
83, 97, 113, 227, 229, 251, 269, 271, 277, 283, 313, 317, 331, 353, 389, 397, 419, 433, 457, 463, 491, 503, 509, 523, 557, 563, 593, 599, 601, 617, 641, 653, 683, 691, 733, 743, 751, 757, 761, 773, 797, 823, 829, 857, 863, 937, 941, 971, 977, 1013, 1031, 1049
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[ !PrimeQ[p1=Floor[p/2]+p]&&!PrimeQ[p2=Ceiling[p/2]+p], If[ !PrimeQ[p3=Floor[p1/2]+p1]&&!PrimeQ[p5=Ceiling[p1/2]+p1], If[ !PrimeQ[p4=Floor[p2/2]+p2]&&!PrimeQ[p6=Ceiling[p2/2]+p2], AppendTo[lst, Prime[n]]]]], {n, 6!}]; lst
|
|
|
CROSSREFS
| Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714
Sequence in context: A062677 A045714 A090156 * A160028 A115258 A139965
Adjacent sequences: A158716 A158717 A158718 * A158720 A158721 A158722
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009
|
| |
|
|
