|
%I #13 Oct 30 2017 10:27:15
%S 0,1,2,3,4,5,6,7,8,9,10,16,17,18,19,20,21,22,23,24,25,32,33,34,35,36,
%T 37,38,39,40,48,49,50,51,52,53,54,55,64,65,66,67,68,69,70,80,81,82,83,
%U 84,85,86,87,88,89,90,96,97
%N Numbers that are the sum of at most 10 nonzero 4th powers.
%H T. D. Noe, <a href="/A004839/b004839.txt">Table of n, a(n) for n=1..1000</a>
%t Reap[For[n = 0, n < 200, n++, If[MatchQ[PowersRepresentations[n, 10, 4], {Table[_, 10], ___}], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 30 2017 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_
|
