OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For n=2, n^3+2*n^2+1=17; n=48, n^3+2*n^2+1=115201.
MATHEMATICA
Select[Range[0, 500], PrimeQ[#^3+2#^2+1]&] (* Vincenzo Librandi, Sep 24 2012 *)
PROG
(Magma) [n: n in [0..450] | IsPrime(n^3+2*n^2+1)]; // Vincenzo Librandi, Sep 24 2012
(PARI) is(n)=isprime(n^3+2*n^2+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 19 2009
STATUS
approved