|
|
A173179
|
|
Numbers n such that n^4-n^3-n^2-n-1 is prime.
|
|
3
|
|
|
3, 8, 9, 11, 14, 17, 18, 20, 24, 27, 38, 41, 45, 48, 50, 51, 56, 59, 60, 62, 63, 71, 77, 78, 81, 84, 86, 87, 90, 92, 93, 95, 101, 111, 113, 114, 119, 146, 147, 153, 155, 171, 179, 186, 204, 207, 219, 225, 230, 231, 233, 234, 240, 246, 254, 255, 267, 284, 287, 291
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
(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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|