|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|