A004841 Numbers that are the sum of at most 12 nonzero 4th powers.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 64, 65, 66, 67, 68, 69, 70, 71, 72, 80, 81, 82

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A066254 A167904 A347769 * A293715 A276393 A193457

Adjacent sequences: A004838 A004839 A004840 * A004842 A004843 A004844

Keyword

nonn

Author

N. J. A. Sloane

Status

approved