|
| |
|
|
A158713
|
|
Primes p such that p1=Ceiling[p/2]+p is prime and p2=Ceiling[p1/2]+p is prime.
|
|
6
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A102158 A191073 A049576 * A102162 A059846 A034698
Adjacent sequences: A158710 A158711 A158712 * A158714 A158715 A158716
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009
|
| |
|
|
