|
Search: id:A158713
|
|
|
| A158713 |
|
Primes p such that p1=Ceiling[p/2]+p is prime and p2=Ceiling[p1/2]+p is prime. |
|
+0
7
|
|
| 2, 7, 31, 47, 311, 431, 607, 727, 839, 1039, 1319, 1567, 1607, 1879, 1951, 2111, 2239, 2447, 2671, 3119, 3167, 3359, 3727, 3919, 4519, 4679, 4751, 4967, 5479, 5527, 5879, 6151, 6247, 6367, 6991, 7607, 7951, 8231, 8839, 8887, 8999, 9239, 9551, 9887, 11351
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[p=Ceiling[p/2]+p], If[PrimeQ[p=Ceiling[p/2]+p], AppendTo[lst, Prime[n]]]], {n, 7!}]; lst
|
|
CROSSREFS
|
Cf. A158708, A158709, A158710, A158711, A158712
Sequence in context: A020135 A102158 A049576 this_sequence A102162 A059846 A034698
Adjacent sequences: A158710 A158711 A158712 this_sequence A158714 A158715 A158716
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009
|
|
|
Search completed in 0.002 seconds
|
