%I
%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
%N Numbers that are the sum of 5 positive 5th powers.
%H T. D. Noe, <a href="/A003350/b003350.txt">Table of n, a(n) for n = 1..1000</a>
%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 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_
