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,3

Links

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

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 *)

Crossrefs

Column k=5 of A336820.

Sequence in context: A345306 A086130 A024636 * A124128 A286902 A037401

Adjacent sequences: A004842 A004843 A004844 * A004846 A004847 A004848

Keyword

nonn

Author

N. J. A. Sloane

Status

approved