OFFSET
1,1
COMMENTS
All terms are even. - Robert Israel, Apr 11 2019
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
filter:= k -> isprime( k^5-k^4-k^3-k^2-k-1):
select(filter, 2*[$1..500]); # Robert Israel, Apr 11 2019
MATHEMATICA
f[n_]:=n^5-n^4-n^3-n^2-n-1; Select[Range[7! ], PrimeQ[f[ #1]]&]
Select[Range[2, 600, 2], PrimeQ[#^5-Total[#^Range[0, 4]]]&] (* Harvey P. Dale, Sep 26 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 11 2010
STATUS
approved