#Mathematica, 48 bytes
Mathematica, 48 bytes
Length@Solve[x^3+y^3-#==0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 48 bytes
Length@Solve[x^3+y^3-#==0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
Mathematica, 48 bytes
Length@Solve[x^3+y^3-#==0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 48 bytes
Length@Solve[x^3+y^3==#&&0<x<yLength@Solve[x^3+y^3-#==0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 48 bytes
Length@Solve[x^3+y^3==#&&0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 48 bytes
Length@Solve[x^3+y^3-#==0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 4948 bytes
Length@Reduce[x^3+y^3==#&&0<x<yLength@Solve[x^3+y^3==#&&0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 49 bytes
Length@Reduce[x^3+y^3==#&&0<x<y,{x,y},Integers]>1&
input
[4104]
output
True
#Mathematica, 48 bytes
Length@Solve[x^3+y^3==#&&0<x<y,{x,y},Integers]>1&
input
[4104]
output
True