A004854 Numbers that are the sum of at most 3 nonzero 6th powers.

0, 1, 2, 3, 64, 65, 66, 128, 129, 192, 729, 730, 731, 793, 794, 857, 1458, 1459, 1522, 2187, 4096, 4097, 4098, 4160, 4161, 4224, 4825, 4826, 4889, 5554, 8192, 8193, 8256, 8921, 12288, 15625, 15626, 15627, 15689, 15690, 15753, 16354, 16355, 16418, 17083

Offset

1,3

Links

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

Mathematica

Reap[For[n = 0, n < 20000, n++, If[MatchQ[PowersRepresentations[n, 3, 6], {{_, _, _}, ___}], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 30 2017 *)

Crossrefs

Sequence in context: A369903 A280582 A037426 * A356797 A356785 A015169

Adjacent sequences: A004851 A004852 A004853 * A004855 A004856 A004857

Keyword

nonn

Author

N. J. A. Sloane

Status

approved