A004845 Numbers that are the sum of at most 5 positive 5th powers.

0, 1, 2, 3, 4, 5, 32, 33, 34, 35, 36, 64, 65, 66, 67, 96, 97, 98, 128, 129, 160, 243, 244, 245, 246, 247, 275, 276, 277, 278, 307, 308, 309, 339, 340, 371, 486, 487, 488, 489, 518, 519, 520, 550, 551, 582, 729, 730, 731, 761, 762, 793, 972, 973, 1004, 1024

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 300 terms from Vincenzo Librandi)

Crossrefs

Column k=5 of A336820.

Programs

Maple

b:= proc(n, i, t) option remember; n=0 or i>0 and t>0
      and (b(n, i-1, t) or i^5<=n and b(n-i^5, i, t-1))
    end:
a:= proc(n) option remember; local k;
      for k from 1+ `if`(n=1, -1, a(n-1))
      while not b(k, iroot(k, 5), 5) do od; k
    end:
seq(a(n), n=1..50);  # Alois P. Heinz, Sep 16 2016

Mathematica

Select[Table[n, {n, 0, 1200}], Length[PowersRepresentations[#, 5, 5]] > 0 &] (* Vladimir Joseph Stephan Orlovsky, Jul 19 2011 *)