|
%I #29 Nov 08 2022 13:59:02
%S 7,70,133,196,259,322,385,448,735,798,861,924,987,1050,1113,1463,1526,
%T 1589,1652,1715,1778,2191,2254,2317,2380,2443,2919,2982,3045,3108,
%U 3647,3710,3773,4102,4165,4228,4291,4354,4375,4417,4438,4480,4830,4893,4956,5019,5082
%N Numbers that are the sum of 7 positive 6th powers.
%H David A. Corneth, <a href="/A003363/b003363.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe)
%F a(n) == 0 (mod 7). - _Joerg Arndt_, Nov 08 2022
%e From _David A. Corneth_, Aug 03 2020: (Start)
%e 267342 is in the sequence as 267342 = 1^6 + 2^6 + 3^6 + 5^6 + 5^6 + 7^6 + 7^6.
%e 594482 is in the sequence as 594482 = 1^6 + 4^6 + 4^6 + 4^6 + 4^6 + 6^6 + 9^6.
%e 696667 is in the sequence as 696667 = 2^6 + 2^6 + 2^6 + 3^6 + 6^6 + 7^6 + 9^6. (End)
%t Reap[For[n = 1, n <= 5000, n++, If[AnyTrue[PowersRepresentations[n, 7, 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_
|
