OFFSET
1,1
COMMENTS
5=2^2+1^3, 12=2^2+2^3, 17=3^2+2^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[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