Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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_