login
A138023
Numbers n such that Sum_{k=0..8} (n+k)^k is a prime.
3
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,2
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
Sequence in context: A277369 A140419 A292851 * A120037 A120038 A120039
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Joerg Arndt, Nov 10 2014
STATUS
approved