OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Do[If[PrimeQ[x^5 + x^4 - 1], Print[x]], {x, 1, 200}]
Select[Range[200], PrimeQ[#^5+#^4-1]&] (* Harvey P. Dale, Apr 10 2018 *)
PROG
(PARI) is(n)=isprime(n^5+n^4-1) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 14 2006
EXTENSIONS
More terms from Amiram Eldar, Mar 18 2020
STATUS
approved