|
%I #23 Apr 24 2023 12:12:44
%S 9,72,135,198,261,324,387,450,513,576,737,800,863,926,989,1052,1115,
%T 1178,1241,1465,1528,1591,1654,1717,1780,1843,1906,2193,2256,2319,
%U 2382,2445,2508,2571,2921,2984,3047,3110,3173,3236,3649,3712,3775,3838,3901,4104,4167,4230
%N Numbers that are the sum of 9 positive 6th powers.
%H David A. Corneth, <a href="/A003365/b003365.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe)
%e From _David A. Corneth_, Aug 03 2020: (Start)
%e 124882 is in the sequence as 124882 = 2^6 + 2^6 + 2^6 + 2^6 + 2^6 + 5^6 + 5^6 + 6^6 + 6^6.
%e 188939 is in the sequence as 188939 = 2^6 + 2^6 + 3^6 + 3^6 + 3^6 + 6^6 + 6^6 + 6^6 + 6^6.
%e 257236 is in the sequence as 257236 = 3^6 + 3^6 + 4^6 + 4^6 + 4^6 + 4^6 + 4^6 + 7^6 + 7^6. (End)
%t Reap[For[n = 1, n <= 3000, n++, If[AnyTrue[PowersRepresentations[n, 9, 6], First[#] > 0&], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Jul 18 2017 *)
%Y Cf. A001014 (sixth powers).
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
|
