OFFSET
1,1
EXAMPLE
1903^3 = 6891541327 (contains all the digits 1 through 9 and doesn't contain 0).
MATHEMATICA
Select[Range[10000], Union[IntegerDigits[ #^3]] == {1, 2, 3, 4, 5, 6, 7, 8, 9} &]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Dec 21 2006
STATUS
approved