OFFSET
1,1
MATHEMATICA
f[n_]:=(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5+(n+6)^6+(n+7)^7+(n+8)^8+(n+9)^9; lst={}; Do[a=f[n]; If[PrimeQ[a], AppendTo[lst, a]], {n, 0, 7!}]; lst
Select[Table[Total[Range[n+1, n+9]^Range[9]], {n, 0, 1000}], PrimeQ] (* Harvey P. Dale, Apr 03 2015 *)
Select[Table[Total[Table[(n+d)^d, {d, 9}]], {n, 1000}], PrimeQ] (* Harvey P. Dale, Sep 10 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
EXTENSIONS
More terms from Harvey P. Dale, Apr 03 2015
STATUS
approved