OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n^6-n^3+1, {n, 0, 2000}], PrimeQ] (* Vincenzo Librandi, Jul 26 2012 *)
PROG
(Magma)[ a: n in [0..250] | IsPrime(a) where a is n^3*(n^3-1)+1 ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Dec 03 2010
STATUS
approved