OFFSET
1,1
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[12#+13]&] (* Harvey P. Dale, May 27 2020 *)
PROG
(PARI) forprime (p=2, 1050, if(isprime(12*p+13), print1(p, ", "))) \\ Hugo Pfoertner, Jan 20 2020
(Magma) [p: p in PrimesUpTo(5000)| IsPrime(12*p+13)]; // Vincenzo Librandi, Jan 30 2011
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 28 2003
EXTENSIONS
Definition corrected by Zak Seidov, May 06 2007
STATUS
approved