|
%I #31 Jul 31 2021 16:55:44
%S 5,36,67,98,129,160,247,278,309,340,371,489,520,551,582,731,762,793,
%T 973,1004,1028,1059,1090,1121,1152,1215,1270,1301,1332,1363,1512,1543,
%U 1574,1754,1785,1996,2051,2082,2113,2144,2293,2324,2355,2535,2566,2777,3074,3105,3129
%N Numbers that are the sum of 5 positive 5th powers.
%H David A. Corneth, <a href="/A003350/b003350.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 122490 is in the sequence as 122490 = 3^5 + 4^5 + 5^5 + 9^5 + 9^5.
%e 251124 is in the sequence as 251124 = 1^5 + 3^5 + 4^5 + 4^5 + 12^5.
%e 349858 is in the sequence as 349858 = 1^5 + 1^5 + 4^5 + 10^5 + 12^5. (End)
%t f[upto_]:=Module[{max=Floor[Power[upto, (5)^-1]],tp},tp=Union[ Total/@ (Tuples[ Range[max],{5}]^5)]; Select[tp,#<=upto&]]; f[2100] (* _Harvey P. Dale_, Mar 22 2011 *)
%Y Cf. A000584, A003349, A003351, A003339, A342685, A344643
%Y Column k=5 of A336725.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
|
