A154414 Primes of the form 20*k^2 + 32*k + 13.

13, 157, 461, 673, 1217, 1549, 2333, 4993, 6337, 7069, 7841, 11329, 12301, 13313, 17761, 18973, 21517, 25633, 30109, 36637, 41953, 45697, 47629, 51613, 62273, 69149, 78877, 81409, 97441, 105997, 108929, 114913, 137117, 140449, 143821, 161281, 164893, 191297, 195229

Offset: 1

Author

Vincenzo Librandi, Jan 09 2009

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A017365.

Programs

Magma

[a: n in [0..100] | IsPrime(a) where a is 20*n^2+32*n+13]; // Vincenzo Librandi, Jul 23 2012

Mathematica

Select[Table[20n^2+32n+13,{n,0,6001}],PrimeQ] (* 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