|
Search: id:A158714
|
|
|
| A158714 |
|
Primes p such that p1=Ceiling[p/2]+p is prime and p2=Floor[p1/2]+p is prime. |
|
+0
6
|
|
| 3, 19, 67, 307, 379, 467, 547, 587, 739, 859, 1259, 1699, 1747, 1867, 2027, 2699, 2819, 3259, 3539, 4019, 4507, 5059, 5779, 7547, 8219, 8539, 8747, 8819, 9547, 10067, 10499, 10667, 11939, 13259, 13627, 13859, 14939, 17659, 17707, 17987, 18859
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[p=Ceiling[p/2]+p], If[PrimeQ[p=Floor[p/2]+p], AppendTo[lst, Prime[n]]]], {n, 7!}]; lst
|
|
CROSSREFS
|
Cf. A158708, A158709, A158710, A158711, A158712, A158713
Sequence in context: A114250 A071245 A091968 this_sequence A064056 A059599 A095662
Adjacent sequences: A158711 A158712 A158713 this_sequence A158715 A158716 A158717
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009
|
|
|
Search completed in 0.002 seconds
|
