OFFSET
1,1
EXAMPLE
7*13 = 91 = 8^2 + 3^3, therefore 91 is a term.
MATHEMATICA
spspcQ[{a_, b_}]:=AllTrue[{Sqrt[a], Surd[b, 3]}, IntegerQ]||AllTrue[{Sqrt[ b], Surd[ a, 3]}, IntegerQ]; Select[Range[500], SquareFreeQ[#] && Length[ Select[IntegerPartitions[#, {2}], spspcQ]]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 13 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 25 2002
STATUS
approved