OFFSET
1,1
EXAMPLE
20 is in the sequence since 2^2 + 2^4 = 4 + 16 = 20, where 0 < 4 < 16.
MATHEMATICA
Table[If[Sum[(Floor[i^(1/2)] - Floor[(i - 1)^(1/2)]) (Floor[(n - i)^(1/4)] - Floor[(n - i - 1)^(1/4)]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 1500}] // Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 26 2020
STATUS
approved