OFFSET
1,1
COMMENTS
All terms == 0 or 2 (mod 3). - Robert Israel, Mar 09 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t^4-t^3-t^2-t-1), [$2..1000]); # Robert Israel, Mar 09 2020
MATHEMATICA
f[n_]:=n^4-n^3-n^2-n-1; Select[Range[6! ], PrimeQ[f[ #1]]&]
PROG
(PARI) is(n)=isprime(n^4-n^3-n^2-n-1) \\ Charles R Greathouse IV, Jun 06 2017
(Magma) [n: n in [2..350] | IsPrime(n^4 - n^3 - n^2 - n - 1)]; // Vincenzo Librandi, Mar 16 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 11 2010
EXTENSIONS
Edited by N. J. A. Sloane, Apr 10 2010
STATUS
approved