OFFSET
1,2
LINKS
Peter Kagey, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[n_]:=Module[{s1, s2, s3}, s1=ToString[n^3]; s2=IntegerDigits[n]^3; s3=ToString/@s2; Union[StringCases[s1, s3]]==Union[s3]];
Select[Range@900, fQ[#]&] (* Ivan N. Ianakiev, Sep 15 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Mar 01 2010
STATUS
approved