|
|
A004807
|
|
Numbers that are the sum of 7 positive 10th powers.
|
|
31
|
|
|
7, 1030, 2053, 3076, 4099, 5122, 6145, 7168, 59055, 60078, 61101, 62124, 63147, 64170, 65193, 118103, 119126, 120149, 121172, 122195, 123218, 177151, 178174, 179197, 180220, 181243, 236199, 237222, 238245, 239268, 295247, 296270, 297293, 354295, 355318, 413343, 1048582
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
1129904068 is in the sequence as 1129904068 = 2^10 + 2^10 + 2^10 + 7^10 + 7^10 + 7^10 + 7^10.
1357385795 is in the sequence as 1357385795 = 2^10 + 2^10 + 3^10 + 3^10 + 4^10 + 7^10 + 8^10.
3831882028 is in the sequence as 3831882028 = 1^10 + 3^10 + 4^10 + 4^10 + 6^10 + 7^10 + 9^10. (End)
|
|
MATHEMATICA
|
k = 7; p = 10; amax = 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
|
|
|
|