OFFSET
1,1
FORMULA
a(n) = 8 * A024670(n). - Rémy Sigrist, Jun 06 2021
EXAMPLE
224 is in the sequence since 2^3 + 6^3 = 8 + 216 = 224, where 8 and 216 are even cubes such 0 < 8 < 216.
MATHEMATICA
Table[If[Sum[Mod[i + 1, 2] Mod[n - i + 1, 2] (Floor[i^(1/3)] - Floor[(i - 1)^(1/3)]) (Floor[(n - i)^(1/3)] - Floor[(n - i - 1)^(1/3)]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 1200}] // Flatten
Total/@Subsets[Range[2, 22, 2]^3, {2}]//Union (* Harvey P. Dale, Sep 18 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 25 2020
STATUS
approved