A004806 - OEIS

%I #18 Aug 02 2020 21:22:52

%S 6,1029,2052,3075,4098,5121,6144,59054,60077,61100,62123,63146,64169,

%T 118102,119125,120148,121171,122194,177150,178173,179196,180219,

%U 236198,237221,238244,295246,296269,354294,1048581,1049604,1050627,1051650,1052673,1053696,1107629,1108652

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

%H David A. Corneth, <a href="/A004806/b004806.txt">Table of n, a(n) for n = 1..10000</a>

%e From _David A. Corneth_, Aug 02 2020: (Start)

%e 3233088249 is in the sequence as 3233088249 = 4^10 + 4^10 + 5^10 + 8^10 + 8^10 + 8^10.

%e 5125476725 is in the sequence as 5125476725 = 1^10 + 1^10 + 7^10 + 7^10 + 8^10 + 9^10.

%e 12440773098 is in the sequence as 12440773098 = 4^10 + 5^10 + 7^10 + 8^10 + 8^10 + 10^10. (End)

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

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_