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

0, 1, 2, 3, 32, 33, 34, 64, 65, 96, 243, 244, 245, 275, 276, 307, 486, 487, 518, 729, 1024, 1025, 1026, 1056, 1057, 1088, 1267, 1268, 1299, 1510, 2048, 2049, 2080, 2291, 3072, 3125, 3126, 3127, 3157, 3158, 3189, 3368, 3369, 3400, 3611, 4149, 4150, 4181, 4392

Offset

1,3

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 200 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), 3) do od; k
    end:
seq(a(n), n=1..50);  # Alois P. Heinz, Sep 16 2016

Mathematica

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

Crossrefs

Cf. A004842, A004845.

Sequence in context: A214658 A334489 A217761 * A173353 A032815 A176894

Adjacent sequences: A004840 A004841 A004842 * A004844 A004845 A004846

Keyword

nonn

Author

N. J. A. Sloane

Status

approved