|
| |
|
|
A138111
|
|
Prime numbers p1 such that p1*p2-mod[p2,p1] is a prime, where p2 is the next prime after p1.
|
|
4
|
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..28.
|
|
|
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: A117763 A165571 A178954 * A218100 A078373 A038878
Adjacent sequences: A138108 A138109 A138110 * A138112 A138113 A138114
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, May 06 2008
|
|
|
STATUS
|
approved
|
| |
|
|
