%I #9 Sep 26 2023 14:15:40
%S 4,6,8,14,18,20,24,26,28,32,40,42,50,58,62,68,72,100,104,120,122,140,
%T 150,174,184,192,210,234,240,260,266,278,288,300,306,326,346,366,404,
%U 432,444,460,464,466,470,484,488,512,516,526,538,556,562,564,570,584
%N Numbers k such that k^5-k^4-k^3-k^2-k-1 is prime.
%C All terms are even. - _Robert Israel_, Apr 11 2019
%H Robert Israel, <a href="/A173180/b173180.txt">Table of n, a(n) for n = 1..10000</a>
%F {k: A125083(k) in A000040}. [_R. J. Mathar_, Feb 13 2010]
%p filter:= k -> isprime( k^5-k^4-k^3-k^2-k-1):
%p select(filter, 2*[$1..500]); # _Robert Israel_, Apr 11 2019
%t f[n_]:=n^5-n^4-n^3-n^2-n-1;Select[Range[7! ],PrimeQ[f[ #1]]&]
%t Select[Range[2,600,2],PrimeQ[#^5-Total[#^Range[0,4]]]&] (* _Harvey P. Dale_, Sep 26 2023 *)
%Y Cf. A002328, A008864, A162294, A173179
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Feb 11 2010
|