OFFSET
1,2
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..3959
MATHEMATICA
Select[Range[500], PrimeQ[Sum[(# + i)^i, {i, 0, 8}]] &] (* Alonso del Arte, Nov 09 2014 *)
PROG
(PARI) for(n=1, 10^3, if(isprime(sum(k=0, 8, (n+k)^k)), print1(n, ", "))); \\ Joerg Arndt, Nov 10 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 06 2008
EXTENSIONS
More terms from Joerg Arndt, Nov 10 2014
STATUS
approved