|
%I #13 Oct 30 2017 10:26:38
%S 0,1,2,3,4,5,16,17,18,19,20,32,33,34,35,48,49,50,64,65,80,81,82,83,84,
%T 85,97,98,99,100,113,114,115,129,130,145,162,163,164,165,178,179,180,
%U 194,195,210,243,244,245,256
%N Numbers that are the sum of at most 5 nonzero 4th powers.
%H T. D. Noe, <a href="/A004834/b004834.txt">Table of n, a(n) for n=1..1000</a>
%t Reap[For[n = 0, n < 1000, n++, If[MatchQ[PowersRepresentations[n, 5, 4], {{_, _, _, _, _}, ___}], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 30 2017 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_
|
