A004855 Numbers that are the sum of at most 4 nonzero 6th powers.

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

Alois P. Heinz, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A004852 A004853 A004854 * A004856 A004857 A004858

Keyword

nonn

Author

N. J. A. Sloane

Status

approved