A004837 Numbers that are the sum of at most 8 nonzero 4th powers.

0, 1, 2, 3, 4, 5, 6, 7, 8, 16, 17, 18, 19, 20, 21, 22, 23, 32, 33, 34, 35, 36, 37, 38, 48, 49, 50, 51, 52, 53, 64, 65, 66, 67, 68, 80, 81, 82, 83, 84, 85, 86, 87, 88, 96, 97, 98, 99, 100, 101, 102, 103, 112, 113, 114

Offset

1,3

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Mathematica

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

Crossrefs

Sequence in context: A032997 A319724 A097546 * A032863 A032887 A023790

Adjacent sequences: A004834 A004835 A004836 * A004838 A004839 A004840

Keyword

nonn

Author

N. J. A. Sloane

Status

approved