A004856 Numbers that are the sum of at most 5 nonzero 6th powers.

0, 1, 2, 3, 4, 5, 64, 65, 66, 67, 68, 128, 129, 130, 131, 192, 193, 194, 256, 257, 320, 729, 730, 731, 732, 733, 793, 794, 795, 796, 857, 858, 859, 921, 922, 985, 1458, 1459, 1460, 1461, 1522, 1523, 1524, 1586, 1587, 1650, 2187, 2188, 2189, 2251, 2252, 2315

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A037330 A062939 A069881 * A325653 A037327 A075832

Adjacent sequences: A004853 A004854 A004855 * A004857 A004858 A004859

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Alois P. Heinz, Sep 16 2016

Status

approved