A004834 Numbers that are the sum of at most 5 nonzero 4th powers.

0, 1, 2, 3, 4, 5, 16, 17, 18, 19, 20, 32, 33, 34, 35, 48, 49, 50, 64, 65, 80, 81, 82, 83, 84, 85, 97, 98, 99, 100, 113, 114, 115, 129, 130, 145, 162, 163, 164, 165, 178, 179, 180, 194, 195, 210, 243, 244, 245, 256

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A098553 A132705 A177334 * A075687 A283526 A293824

Adjacent sequences: A004831 A004832 A004833 * A004835 A004836 A004837

Keyword

nonn

Author

N. J. A. Sloane

Status

approved