|
|
A123033
|
|
Prime sums of 4 positive 5th powers.
|
|
1
|
|
|
97, 277, 761, 1511, 1753, 2081, 3221, 3643, 6197, 7517, 7841, 8263, 10067, 10399, 10903, 16903, 25639, 32771, 32833, 33013, 33647, 33889, 35059, 36137, 39019, 40577, 40819, 48563, 49639, 57383, 59083, 59567, 60317, 61129, 62207, 63199, 66383, 66889, 100003
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There must be an odd number of odd terms in the sum, either one even and 3 odd terms (as with 1^5 + 1^5 + 2^5 + 3^5 and 761 = 2^5 + 3^5 + 3^5 + 3^5) or three even terms and one odd term (as with 97 = 1^5 + 2^5 + 2^5 + 2^5 and 3221 = 2^5 + 2^5 + 2^5 + 5^5). The sum of two positive 5th powers (A003347), other than 2 = 1^5 + 1^5, cannot be prime.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(1) = 97 = 1^5 + 2^5 + 2^5 + 2^5.
a(2) = 277 = 1^5 + 1^5 + 2^5 + 3^5.
a(3) = 761 = 2^5 + 3^5 + 3^5 + 3^5.
a(7) = 3221 = 2^5 + 2^5 + 2^5 + 5^5.
|
|
MATHEMATICA
|
up = 10^6; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[ Union@ Flatten@Table[e + a, {e, q}], # <= up &]; a = b, {k, 4}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 13 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|