|
|
A137772
|
|
Prime numbers p such that p +- ((p-1)/30030) are primes.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Note that 2*3*5*7*11*13 = 30030.
|
|
LINKS
|
|
|
EXAMPLE
|
5945941+5945940/30030 = 5946139 and 5945941-5945940/30030 = 5945743, which are primes.
|
|
MATHEMATICA
|
w=30030; 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]
Select[Prime[Range[10550000]], PrimeQ[# + (# - 1) / 30030] && PrimeQ[# - (# - 1) / 30030] &] (* Vincenzo Librandi, Jun 15 2013 *)
|
|
PROG
|
(Magma) [p: p in PrimesInInterval(5, 120000000)| IsPrime((30031*p-1) div 30030 ) and IsPrime((30029*p+1) div 30030)]; // Vincenzo Librandi, Jun 15 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|