A138242 Prime numbers k such that 12*k - 1, 12*k + 1 are twin primes.

5, 19, 29, 139, 149, 271, 281, 379, 569, 601, 691, 719, 751, 839, 1009, 1021, 1051, 1499, 1511, 1601, 1619, 1709, 1801, 2161, 2381, 2539, 2711, 2819, 2851, 3001, 3109, 3221, 3229, 3319, 3449, 3929, 4111, 4129, 4139, 4241, 4261, 4339, 4871, 4909, 4969

Offset

1,1

Links

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

Example

5*12 = 60 - 1 = 59 (prime), 5*12 = 60 + 1 = 61 (prime).

Mathematica

a=12; Select[Prime[Range[250]], PrimeQ[a*#-1]&&PrimeQ[a*#+1] &]
Select[Prime[Range[700]], AllTrue[12#+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 11 2017 *)

Prog

(Magma) [n: n in [0..1000] |IsPrime(n) and IsPrime(12*n-1)and IsPrime(12*n+1)] // Vincenzo Librandi, Nov 24 2010

Crossrefs

Sequence in context: A241043 A045457 A165557 * A163076 A122729 A347531

Adjacent sequences: A138239 A138240 A138241 * A138243 A138244 A138245

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 05 2008

Extensions

More terms from Vincenzo Librandi, Mar 25 2010

Status

approved