OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..2000
MATHEMATICA
Select[Range[300], PrimeQ[(#+1)^2-#^3]&] (* Harvey P. Dale, Dec 06 2015 *)
PROG
(Magma) [n: n in [0..500] | IsPrime((n+1)^2-n^3)]; // Vincenzo Librandi, Nov 26 2010
(PARI) is(n)=isprime(abs((n+1)^2 - n^3)) \\ Charles R Greathouse IV, Sep 02 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 04 2009
STATUS
approved