OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p=2, 20*2^2+32*2+13=157; p=5, 20*5^2+32*5+13=673.
MATHEMATICA
Select[Prime[Range[200]], PrimeQ[20 #^2 + 32 # + 13]&] (* Vincenzo Librandi, Apr 16 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(2000)| IsPrime(20*p^2+32*p+13)];
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Mar 15 2010
STATUS
approved