login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #15 Sep 08 2022 08:45:33

%S 5,19,29,139,149,271,281,379,569,601,691,719,751,839,1009,1021,1051,

%T 1499,1511,1601,1619,1709,1801,2161,2381,2539,2711,2819,2851,3001,

%U 3109,3221,3229,3319,3449,3929,4111,4129,4139,4241,4261,4339,4871,4909,4969

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

%H Harvey P. Dale, <a href="/A138242/b138242.txt">Table of n, a(n) for n = 1..1000</a>

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

%t a=12;Select[Prime[Range[250]],PrimeQ[a*#-1]&&PrimeQ[a*#+1] &]

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

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, May 05 2008

%E More terms from _Vincenzo Librandi_, Mar 25 2010