A004835 Numbers that are the sum of at most 6 nonzero 4th powers.

0, 1, 2, 3, 4, 5, 6, 16, 17, 18, 19, 20, 21, 32, 33, 34, 35, 36, 48, 49, 50, 51, 64, 65, 66, 80, 81, 82, 83, 84, 85, 86, 96, 97, 98, 99, 100, 101, 113, 114, 115, 116, 129, 130, 131, 145, 146, 161, 162, 163, 164, 165, 166

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

Crossrefs

Sequence in context: A318534 A265405 A171610 * A037341 A228730 A062932

Adjacent sequences: A004832 A004833 A004834 * A004836 A004837 A004838

Keyword

nonn

Author

N. J. A. Sloane

Status

approved