|
Search: id:A138111
|
|
|
| A138111 |
|
Prime numbers p1 such that p1*p2-mod[p2,p1] is a prime, where p2 is the next prime after p1. |
|
+0
5
|
|
| 2, 3, 7, 19, 23, 43, 53, 79, 127, 211, 229, 233, 337, 397, 443, 463, 467, 499, 503, 601, 631, 661, 967, 991, 1009, 1129, 1153, 1213
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
2 prime, 3 next-prime, 2*3-Mod[3,2]=2*3-1=5 prime.
3 prime, 5 next-prime, 3*5-Mod[5,3]=3*5-2=13 prime.
7 prime, 11 next-prime, 7*11-Mod[11,7]=7*11-4=73 prime.
|
|
MATHEMATICA
|
a={}; Do[p1=Prime[n]; p2=Prime[n+1]; e=p1*p2-Mod[p2, p1]; If[PrimeQ[e], AppendTo[a, p1]], {n, 10^2*2}]; a
|
|
CROSSREFS
|
Sequence in context: A073641 A117763 A165571 this_sequence A078373 A038878 A040112
Adjacent sequences: A138108 A138109 A138110 this_sequence A138112 A138113 A138114
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), May 06 2008
|
|
|
Search completed in 0.002 seconds
|
