OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
1291+1290/5 = 1549 and 1291-1290/5 = 1033, which are primes;
5701+5700/5 = 6841 and 5701-5700/5 = 4561, which are primes.
MATHEMATICA
w=5; 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[50000]], PrimeQ[# + (# - 1) / 5] && PrimeQ[# - (# - 1) / 5] &] (* Vincenzo Librandi, Jun 15 2013 *)
PROG
(Magma) [p: p in PrimesInInterval(5, 50000)| IsPrime((6*p-1) div 5 ) and IsPrime((4*p+1) div 5)]; // Vincenzo Librandi, Jun 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 27 2008
EXTENSIONS
More terms from Vincenzo Librandi, Jun 15 2013
STATUS
approved