A123299 Prime sums of 13 positive 5th powers.

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

Author

Jonathan Vos Post, Sep 24 2006

Keywords

• easy
• nonn

Examples

			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.
		

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000584, A003336, A003347, A003349, A003350, A003351, A003352, A003353, A003354, A003355, A003356, A003357, A123294, A123295, A008480.

Programs

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 *)

Formula

A000040 INTERSECTION A123299.

Extensions

a(10)-a(45) from Giovanni Resta, Jun 12 2016