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, n]], {n, 0, 7!}]; lst
PROG
(PARI) is(n)=isprime(sum(k=1, 9, (n+k)^k)) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
STATUS
approved