%I #23 Sep 17 2024 15:47:25
%S 1,3,4,5,7,11,14,21,22,23,28,31,33,47,50,53,56,59,70,72,82,88,92,99,
%T 106,120,122,124,135,140,149,157,159,162,166,169,172,179,182,205,217,
%U 218,224,225,229,231,239,243,247,249,256,257,262,263,273,283,284,290,302
%N Numbers k such that k^0 + (k+1)^1 + (k+2)^2 + (k+3)^3 + (k+4)^4 is a prime.
%C Numbers k such that k^4 + 17*k^3 + 106*k^2 + 288*k + 289 is prime. - _Robert Israel_, Jul 21 2020
%H Robert Israel, <a href="/A137950/b137950.txt">Table of n, a(n) for n = 1..10000</a>
%p filter:= k -> isprime(k^4 + 17*k^3 + 106*k^2 + 288*k + 289):
%p select(filter, [$1..1000]); # _Robert Israel_, Jul 21 2020
%t a={};Do[If[PrimeQ[n^0+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4],AppendTo[a,n]],{n,10^2*2}];a
%t Select[Range[350],PrimeQ[Total[Table[(#+d)^d,{d,0,4}]]]&] (* _Harvey P. Dale_, Sep 01 2024 *)
%o (Magma) [n: n in [0..500] | IsPrime(n^0+(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4)]; // _Vincenzo Librandi_, Nov 24 2010
%K nonn,changed
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, May 06 2008
%E More terms from _Vincenzo Librandi_, Mar 26 2010