Revision b0fe149b-a897-4d87-bcda-6a72a02a4ba9 - Code Golf Stack Exchange

#Mathematica, 49 bytes


 Length@Reduce[x^3+y^3==#&&0<x<y,{x,y},Integers]>1&


**input**
>[4104] 

**output**
>True