OFFSET
1,1
COMMENTS
Subsequence of A003325.
MATHEMATICA
Do[If[Prime[i]^3 + Prime[j]^3 == 2n, Print[2n]], {n, 15000}, {i, 2, n^(1/3)}, {j, i, (2n - i^3)^(1/3)}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
XU Pingya, Jul 31 2017
STATUS
approved