login
A123299
Prime sums of 13 positive 5th powers.
4
13, 137, 199, 317, 379, 503, 683, 739, 863, 1049, 1129, 1223, 1229, 1409, 1433, 1471, 1613, 1619, 1831, 1949, 1979, 2011, 2221, 2339, 2543, 2549, 2729, 2791, 2909, 2917, 2971, 3089, 3137, 3299, 3307, 3323, 3331, 3361, 3511, 3541, 3659, 3863, 3877, 3931, 4049
OFFSET
1,1
LINKS
FORMULA
A000040 INTERSECTION A123299.
EXAMPLE
a(1) = 13 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5.
a(2) = 137 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(3) = 199 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5.
a(4) = 317 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 3^5.
MATHEMATICA
up = 4100; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[ Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 13}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 12 2016 *)
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Sep 24 2006
EXTENSIONS
a(10)-a(45) from Giovanni Resta, Jun 12 2016
STATUS
approved