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

Author

Vladimir Joseph Stephan Orlovsky, May 05 2008

Keywords

• nonn

Examples

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

Links

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

Programs

Magma

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

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 *)

Extensions

More terms from Vincenzo Librandi, Mar 25 2010