A004836 Numbers that are the sum of at most 7 nonzero 4th powers.

0, 1, 2, 3, 4, 5, 6, 7, 16, 17, 18, 19, 20, 21, 22, 32, 33, 34, 35, 36, 37, 48, 49, 50, 51, 52, 64, 65, 66, 67, 80, 81, 82, 83, 84, 85, 86, 87, 96, 97, 98, 99, 100, 101, 102, 112, 113, 114, 115, 116, 117, 129, 130, 131

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, 7, 4], {Table[_, 7], ___}], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 30 2017 *)

Crossrefs

Sequence in context: A368533 A309126 A371289 * A039030 A162231 A370957

Adjacent sequences: A004833 A004834 A004835 * A004837 A004838 A004839

Keyword

nonn

Author

N. J. A. Sloane

Status

approved