|
|
A004806
|
|
Numbers that are the sum of 6 positive 10th powers.
|
|
31
|
|
|
6, 1029, 2052, 3075, 4098, 5121, 6144, 59054, 60077, 61100, 62123, 63146, 64169, 118102, 119125, 120148, 121171, 122194, 177150, 178173, 179196, 180219, 236198, 237221, 238244, 295246, 296269, 354294, 1048581, 1049604, 1050627, 1051650, 1052673, 1053696, 1107629, 1108652
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
3233088249 is in the sequence as 3233088249 = 4^10 + 4^10 + 5^10 + 8^10 + 8^10 + 8^10.
5125476725 is in the sequence as 5125476725 = 1^10 + 1^10 + 7^10 + 7^10 + 8^10 + 9^10.
12440773098 is in the sequence as 12440773098 = 4^10 + 5^10 + 7^10 + 8^10 + 8^10 + 10^10. (End)
|
|
MATHEMATICA
|
k = 6; p = 10; amax = 2*10^6; bmax = amax^(1/p) // Ceiling; Clear[b]; b[0] = 1; Select[Table[Total[Array[b, k]^p], {b[1], b[0], bmax}, Evaluate[ Sequence @@ Table[{b[j], b[j-1], bmax}, {j, 1, k}]]] // Flatten // Union, # <= amax&] (* Jean-François Alcover, Jul 19 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|