The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #14 Oct 30 2017 10:27:56
%S 0,1,2,3,4,64,65,66,67,128,129,130,192,193,256,729,730,731,732,793,
%T 794,795,857,858,921,1458,1459,1460,1522,1523,1586,2187,2188,2251,
%U 2916,4096,4097,4098,4099,4160,4161,4162,4224,4225,4288,4825,4826,4827,4889,4890
%N Numbers that are the sum of at most 4 nonzero 6th powers.
%H Alois P. Heinz, <a href="/A004855/b004855.txt">Table of n, a(n) for n = 1..10000</a>
%t Reap[For[n = 0, n < 5000, n++, If[MatchQ[PowersRepresentations[n, 4, 6], {{_, _, _, _}, ___}], Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Oct 30 2017 *)
%K nonn
%O 1,3
%A _N. J. A. Sloane_