login
A004843
Numbers that are the sum of at most 3 positive 5th powers.
1
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
Sequence in context: A214658 A334489 A217761 * A173353 A032815 A176894
KEYWORD
nonn
STATUS
approved