A123039 Prime sums of 11 positive 5th powers.
11, 73, 197, 439, 557, 563, 619, 743, 1103, 1283, 1307, 1493, 1549, 2243, 2251, 2399, 2423, 2579, 2969, 3001, 3259, 3329, 3391, 3539, 3571, 3719, 3923, 4079, 4289, 4493, 4649, 4673, 5039, 5281, 5399, 5641, 5851, 6211, 6359, 6367, 6421, 6563, 6719, 6781, 6961
Offset: 1
Examples
a(1) = 11 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5. a(2) = 73 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5. a(3) = 197 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5. a(4) = 439 = 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5. a(5) = 557 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 3^5 + 3^5. a(6) = 563 = 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5. a(7) = 619 = 1^5 + 1^5 + 1^5 + 1^5 + 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5 + 3^5. a(8) = 743 = 1^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 2^5 + 3^5 + 3^5.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
up = 6961; q = Range[up^(1/5)]^5; a = {0}; Do[b = Select[Union@ Flatten@ Table[e + a, {e, q}], # <= up &]; a = b, {k, 11}]; Select[a, PrimeQ] (* Giovanni Resta, Jun 12 2016 *)
Extensions
More terms from Alois P. Heinz, Aug 12 2015
Comments