%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
|