OFFSET
1,2
COMMENTS
One less than the entry in A111501. - R. J. Mathar, Jan 05 2011
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 100], PrimeQ[#^3 + 2 #^2 + # + 1]&] (* Vincenzo Librandi, Sep 24 2012 *)
PROG
(Magma) [n: n in [0..210] | IsPrime(n^3+2*n^2+n+1)]; // Vincenzo Librandi, Sep 24 2012
(PARI) is(n)=isprime(n^3+2*n^2+n+1) \\ Charles R Greathouse IV, May 22 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 19 2009
STATUS
approved