|
%I #21 Aug 04 2020 17:18:45
%S 4,67,130,193,256,732,795,858,921,1460,1523,1586,2188,2251,2916,4099,
%T 4162,4225,4288,4827,4890,4953,5555,5618,6283,8194,8257,8320,8922,
%U 8985,9650,12289,12352,13017,15628,15691,15754,15817,16356,16384,16419,16482,17084,17147,17812
%N Numbers that are the sum of 4 positive 6th powers.
%H David A. Corneth, <a href="/A003360/b003360.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 7875074 is in the sequence as 7875074 = 5^6 + 6^6 + 12^6 + 13^6.
%e 12770418 is in the sequence as 12770418 = 7^6 + 8^6 + 10^6 + 15^6.
%e 20763201 is in the sequence as 20763201 = 1^6 + 10^6 + 12^6 + 16^6. (End)
%t Reap[For[n = 1, n <= 20000, n++, If[AnyTrue[PowersRepresentations[n, 4, 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_
|
