OFFSET
1,1
EXAMPLE
1132^3 = 1450571968.
MATHEMATICA
Select[Range[4000], Length[Union[IntegerDigits[ # ], IntegerDigits[ #^3]]] == 10 &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Sep 14 2006
STATUS
approved