A004806 Numbers that are the sum of 6 positive 10th powers.

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

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Examples

			From _David A. Corneth_, Aug 02 2020: (Start)
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)
		

Links

• David A. Corneth, Table of n, a(n) for n = 1..10000

Programs

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