OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 900], PrimeQ[#^2 + 13 # + 23] &] (* Vincenzo Librandi, Jul 31 2012 *)
PROG
(Magma) [n: n in [0..200]| IsPrime(n^2+13*n+23)]; // Vincenzo Librandi, Jul 31 2012
(PARI) is(n)=isprime(n^2+13*n+23) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 03 2009
STATUS
approved