OFFSET
1,1
EXAMPLE
9 is in the sequence since 1^2 + 2^3 = 1 + 8 = 9, with 0 < 1 <= 8.
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/2]}] > 0, n, {}], {n, 600}] // Flatten
stQ[n_]:=Count[IntegerPartitions[n, {2}], _?(AllTrue[{Surd[#[[1]], 3], Sqrt[#[[2]]]}, IntegerQ]&)] > 0; Select[Range[600], stQ] (* Harvey P. Dale, Aug 22 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 26 2020
STATUS
approved