A004832 Numbers that are the sum of at most 3 nonzero 4th powers.

0, 1, 2, 3, 16, 17, 18, 32, 33, 48, 81, 82, 83, 97, 98, 113, 162, 163, 178, 243, 256, 257, 258, 272, 273, 288, 337, 338, 353, 418, 512, 513, 528, 593, 625, 626, 627, 641, 642, 657, 706, 707, 722, 768, 787, 881, 882

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

Crossrefs

Sequence in context: A092973 A126007 A337111 * A076801 A032807 A246490

Adjacent sequences: A004829 A004830 A004831 * A004833 A004834 A004835

Keyword

nonn

Author

N. J. A. Sloane

Status

approved