A138023 Numbers m such that Sum_{k=0..8} (m+k)^k is a prime.

1, 5, 8, 22, 24, 34, 48, 52, 58, 59, 69, 73, 92, 110, 134, 148, 157, 167, 181, 188, 226, 233, 268, 303, 307, 321, 332, 337, 349, 376, 381, 415, 500, 503, 549, 558, 590, 654, 656, 659, 680, 681, 682, 696, 706, 710, 724, 773, 785, 838, 848, 880, 892, 906, 915, 918, 932, 937, 939, 954, 983, 993, 995

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, May 06 2008

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..3959

Programs

Mathematica

Select[Range[500], PrimeQ[Sum[(# + i)^i, {i, 0, 8}]] &] (* Alonso del Arte, Nov 09 2014 *)

PARI

for(n=1,10^3,if(isprime(sum(k=0,8,(n+k)^k)),print1(n,", "))); \\ Joerg Arndt, Nov 10 2014

Extensions

More terms from Joerg Arndt, Nov 10 2014