login
A004855
Numbers that are the sum of at most 4 nonzero 6th powers.
1
0, 1, 2, 3, 4, 64, 65, 66, 67, 128, 129, 130, 192, 193, 256, 729, 730, 731, 732, 793, 794, 795, 857, 858, 921, 1458, 1459, 1460, 1522, 1523, 1586, 2187, 2188, 2251, 2916, 4096, 4097, 4098, 4099, 4160, 4161, 4162, 4224, 4225, 4288, 4825, 4826, 4827, 4889, 4890
OFFSET
1,3
LINKS
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A096782 A098811 A169902 * A097930 A012322 A076519
KEYWORD
nonn
STATUS
approved