|
Search: id:A137702
|
|
|
| A137702 |
|
Prime numbers p such that p +- ((p-1)/2) are primes. |
|
+0
1
|
|
| 5, 13, 73, 421, 541, 613, 661, 673, 1201, 1453, 2341, 2473, 2593, 3061, 3313, 4441, 4561, 5113
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
5+-2=primes
13+-6=primes
|
|
MATHEMATICA
|
w=2; s=""; For[i=1, i<10^3*2, p=Prime[i]; If[PrimeQ[p-((p-1)/w)]&&PrimeQ[p+((p-1)/w)], (*Print[p, ":", p-((p-1)/w), ", ", p+((p-1)/w)]; *)s=s<>ToString[p]<>", "]; i++ ]; Print[s]
|
|
CROSSREFS
|
Sequence in context: A100209 A139361 A115329 this_sequence A140120 A064169 A081525
Adjacent sequences: A137699 A137700 A137701 this_sequence A137703 A137704 A137705
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 27 2008
|
|
|
Search completed in 0.002 seconds
|
