OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[20n^2+32n+13, {n, 0, 6001}], PrimeQ] (* Vincenzo Librandi, Jul 23 2012 *)
PROG
(Magma) [a: n in [0..100] | IsPrime(a) where a is 20*n^2+32*n+13]; // Vincenzo Librandi, Jul 23 2012
(PARI) {for(n=0, 100, if(isprime(k=20*n^2+32*n+13), print1(k, ", ")))}; Vincenzo Librandi, Jul 23 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 09 2009
STATUS
approved