%I #18 Sep 08 2022 08:45:12

%S 2,5,7,19,37,47,83,103,107,109,137,149,167,173,179,197,223,263,293,

%T 307,313,337,347,349,379,433,439,463,487,509,547,569,587,593,607,613,

%U 617,673,683,709,719,727,743,769,809,859,863,887,929,937,967,1019,1033,1049

%N Primes p such that 12*p + 13 is prime.

%H Daniel Starodubtsev, <a href="/A089443/b089443.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Prime[Range[200]],PrimeQ[12#+13]&] (* _Harvey P. Dale_, May 27 2020 *)

%o (PARI) forprime (p=2,1050, if(isprime(12*p+13), print1(p,", "))) \\ _Hugo Pfoertner_, Jan 20 2020

%o (Magma) [p: p in PrimesUpTo(5000)| IsPrime(12*p+13)]; // _Vincenzo Librandi_, Jan 30 2011

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Dec 28 2003

%E Definition corrected by _Zak Seidov_, May 06 2007