OFFSET
1,1
COMMENTS
17=3^2+2^3, 17=4^2+1^3, 31=2^2+3^3, 43=4^2+3^3, 65=1^2+4^3, 65=8^2+1^3, 100=6^2+4^3, ...
MATHEMATICA
lst={}; Do[Do[Do[If[x!=y, a=x^2+y^3; If[a>n, Break[]]; If[a==n, AppendTo[lst, n]]], {y, 5!}], {x, 5!}], {n, 4*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 23 2009
STATUS
approved