A173180 Numbers k such that k^5-k^4-k^3-k^2-k-1 is prime.

4, 6, 8, 14, 18, 20, 24, 26, 28, 32, 40, 42, 50, 58, 62, 68, 72, 100, 104, 120, 122, 140, 150, 174, 184, 192, 210, 234, 240, 260, 266, 278, 288, 300, 306, 326, 346, 366, 404, 432, 444, 460, 464, 466, 470, 484, 488, 512, 516, 526, 538, 556, 562, 564, 570, 584

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

{k: A125083(k) in A000040}. [R. J. Mathar, Feb 13 2010]

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

Cf. A002328, A008864, A162294, A173179

Sequence in context: A050902 A320125 A110974 * A200077 A256137 A116897

Adjacent sequences: A173177 A173178 A173179 * A173181 A173182 A173183

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Feb 11 2010

Status

approved