OFFSET
1,1
COMMENTS
Primes in the sumset {A000584 + A000584 + A000584 + A000584 + A000584 + A000584 + A000584 + A000584}.
There must be an odd number of odd terms in the sum, either one even and seven odd (as with 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 3^5 and 523 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 3^5 + 3^5), three even and 5 odd terms (as with 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5), five even and 3 odd terms (as with 647 = 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5 + 3^5) or seven even terms and one odd term (as with 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5). The sum of two positive 5th powers (A003347), other than 2 = 1^5 + 1^5, cannot be prime.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 101 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5.
a(2) = 163 = 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(3) = 281 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 3^5.
a(4) = 467 = 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5.
a(5) = 523 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 3^5 + 3^5.
a(6) = 647 = 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5 + 3^5.
MATHEMATICA
up = 10^4; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[ Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 8}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 13 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Sep 24 2006
EXTENSIONS
More terms from Alois P. Heinz, Aug 12 2015
STATUS
approved