login
A127453
Primes p such that 6p - 13 and 6p + 13 are also primes.
1
3, 5, 11, 19, 31, 61, 79, 89, 101, 149, 179, 241, 269, 331, 409, 439, 479, 509, 599, 619, 691, 739, 751, 919, 971, 1031, 1039, 1061, 1171, 1201, 1249, 1319, 1451, 1531, 1571, 1741, 1871, 1879, 1999, 2161, 2221, 2389, 2459, 2531, 2609, 2819, 3061, 3301, 3391
OFFSET
1,1
LINKS
EXAMPLE
11, 6*11 - 13 = 53, and 6*11 + 13 = 79 are all primes.
MATHEMATICA
Select[Range[5000], PrimeQ[ # ] && PrimeQ[6# + 13] && PrimeQ[6# - 13] &]
okQ[n_]:=Module[{n6=6n}, And@@PrimeQ[{6n+13, 6n-13}]]; Select[Prime[Range[ 500]], okQ] (* Harvey P. Dale, Oct 03 2011 *)
PROG
(Magma) [ p: p in PrimesUpTo(9000) | IsPrime(6*p-13) and IsPrime(6*p+13)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
Subsequence of A089439.
Sequence in context: A259589 A090471 A124098 * A092602 A134127 A239519
KEYWORD
nonn
AUTHOR
Zerinvary Lajos, Mar 31 2007
STATUS
approved