OFFSET
1,1
EXAMPLE
28 is in the sequence since 1^2 + 3^3 = 1 + 27 = 28, where 0 < 1 < 27.
MATHEMATICA
Table[If[Sum[(Floor[i^(1/2)] - Floor[(i - 1)^(1/2)]) (Floor[(n - i)^(1/3)] - Floor[(n - i - 1)^(1/3)]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 700}] // Flatten
PROG
(Python)
from itertools import count, takewhile
def aupto(lim):
sqs = list(takewhile(lambda x: x <= lim, (i**2 for i in count(1))))
cbs = list(takewhile(lambda x: x <= lim, (i**3 for i in count(1))))
sms = set(s + t for s in sqs for t in cbs if 0 < s < t and s + t < lim)
return sorted(sms)
print(aupto(540)) # Michael S. Branicky, Sep 12 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 26 2020
STATUS
approved