|
Search: id:A158709
|
|
|
| A158709 |
|
Primes p such that ceiling[p/2]+p is prime. |
|
+0
12
|
|
| 2, 3, 7, 11, 19, 31, 47, 59, 67, 71, 127, 131, 151, 167, 179, 211, 239, 307, 311, 347, 379, 431, 439, 467, 479, 547, 571, 587, 607, 619, 631, 647, 727, 739, 787, 811, 839, 859, 907, 911, 967, 991, 1039, 1091, 1231, 1259, 1319, 1399, 1427, 1471, 1511, 1531, 1559
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Or primes p such that sum_{x=1..p}1-(-1)^x*x is prime. - Juri-Stepan Gerasimov, Jul 14 2009
|
|
EXAMPLE
|
Ceiling[7/2]+7=11, Ceiling[11/2]+11=17, ...
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[Ceiling[p/2]+p], AppendTo[lst, p]], {n, 6!}]; lst
|
|
CROSSREFS
|
Cf. A158708
Sequence in context: A064270 A062576 A079739 this_sequence A055502 A003173 A159262
Adjacent sequences: A158706 A158707 A158708 this_sequence A158710 A158711 A158712
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsly (4vladimir(AT)gmail.com), Mar 24 2009
|
|
|
Search completed in 0.002 seconds
|
