login
A089144
Primes p such that 6*p-5 and 6*p-1 are primes.
6
2, 3, 7, 17, 19, 47, 53, 59, 67, 103, 113, 127, 157, 239, 269, 283, 313, 379, 383, 397, 449, 467, 577, 613, 617, 647, 823, 829, 907, 929, 977, 1097, 1123, 1279, 1373, 1447, 1489, 1523, 1697, 1723, 1789, 1877, 1933, 2017, 2027, 2063, 2069, 2237, 2339, 2423
OFFSET
1,1
LINKS
EXAMPLE
6*7=42, 42-5=37, 42-1=41, 37 and 41 primes.
MATHEMATICA
okQ[n_]:=Module[{x=6n}, PrimeQ[x-1]&&PrimeQ[x-5]]; Select[Prime[Range[ 500]], okQ] (* Harvey P. Dale, May 25 2011 *)
Select[Prime[Range[400]], PrimeQ[6 # - 5] && PrimeQ[6 # - 1]&] (* Vincenzo Librandi, May 23 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(3000) |IsPrime(6*p-5) and IsPrime(6*p-1)]; // Vincenzo Librandi, May 23 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 05 2003
EXTENSIONS
More terms from Ray Chandler, Dec 06 2003
STATUS
approved