OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[10^3], PrimeQ[#^6 - #^3 + 1] &] (* Michael De Vlieger, Dec 02 2017 *)
PROG
(PARI) for(k=1, 300, if(isprime(k^6-k^3+1), print1(k, ", ")))
(Magma) [n: n in [0..1000] |IsPrime(n^3*(n^3-1)+1)] // Vincenzo Librandi, Dec 03 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Serge Batalov, Sep 03 2009
EXTENSIONS
More terms from Vincenzo Librandi, Mar 25 2010
STATUS
approved