%I
%S 1,2,3,4,5,6,7,8,9,10,11,12,20,22,30,32,40,50,60,70,80,90,100,101,102,
%T 103,110,111,112,120,122,200,201,202,212,220,221,222,300,301,302,320,
%U 400,401,402,405,500,501,600,700,800,900
%N Numbers n with property that the cube of each digit of n is a substring of n^3.
%H Peter Kagey, <a href="/A173902/b173902.txt">Table of n, a(n) for n = 1..10000</a>
%t fQ[n_]:=Module[{s1,s2,s3},s1=ToString[n^3];s2=IntegerDigits[n]^3;s3=ToString/@s2;Union[StringCases[s1,s3]]==Union[s3]];
%t Select[Range@900,fQ[#]&] (* _Ivan N. Ianakiev_, Sep 15 2015 *)
%K base,nonn
%O 1,2
%A _Claudio Meller_, Mar 01 2010
