A004807 Numbers that are the sum of 7 positive 10th powers.

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

Offset

1,1

Links

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

Example

From David A. Corneth, Aug 03 2020: (Start)
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

Cf. A008454 (tenth powers).

Sequence in context: A293142 A013544 A250914 * A139781 A101072 A203583

Adjacent sequences: A004804 A004805 A004806 * A004808 A004809 A004810

Keyword

nonn,easy

Author

N. J. A. Sloane

Status

approved