login
A138242
Prime numbers k such that 12*k - 1, 12*k + 1 are twin primes.
3
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Vincenzo Librandi, Mar 25 2010
STATUS
approved