OFFSET
1,1
COMMENTS
EXAMPLE
69 is (the last) term because 69^2=4761 and 69^3=328509 together use all 10 distinct digits.
MATHEMATICA
bb = {}; Do[idpn = IntegerDigits[n^3]; idn = IntegerDigits[n^2]; If[Length[idn] + Length[idpn] == Length[Union[idn, idpn]], bb = {bb, n}], {n, 1, 10000}]; Flatten[bb]
CROSSREFS
KEYWORD
fini,full,nonn,base
AUTHOR
Zak Seidov, Jul 01 2003
STATUS
approved