A127453 Primes p such that 6p - 13 and 6p + 13 are also primes.

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A127450 A127451 A127452 * A127454 A127455 A127456

Keyword

nonn

Author

Zerinvary Lajos, Mar 31 2007

Status

approved