OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[10000], PrimeQ[#^7-#^5+1]&] (* Vincenzo Librandi, Jun 21 2012 *)
PROG
(Magma) [n: n in [0..1000]|IsPrime(n^7-n^5+1)]
(PARI) is(n)=isprime(n^7-n^5+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 22 2011
STATUS
approved