%I #15 Oct 30 2017 10:26:25
%S 0,1,2,3,16,17,18,32,33,48,81,82,83,97,98,113,162,163,178,243,256,257,
%T 258,272,273,288,337,338,353,418,512,513,528,593,625,626,627,641,642,
%U 657,706,707,722,768,787,881,882
%N Numbers that are the sum of at most 3 nonzero 4th powers.
%H T. D. Noe, <a href="/A004832/b004832.txt">Table of n, a(n) for n=1..1000</a>
%t Reap[For[n = 0, n < 1000, n++, If[MatchQ[ PowersRepresentations[n, 3, 4], {{_, _, _},___}], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 30 2017 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_
|