|
%I #2 Mar 30 2012 18:49:08
%S 1132,1472,1475,1532,1706,1733,1746,1895,1903,2113,2147,2193,2194,
%T 2223,2263,2326,2524,2535,2618,2647,2686,2687,2694,2795,2796,2846,
%U 2890,2911,2972,2978,2993,3024,3031,3057,3058,3123,3169,3315,3412,3474,3506,3508
%N Numbers n such that n and n^3 together contain all ten digits.
%e 1132^3 = 1450571968.
%t Select[Range[4000], Length[Union[IntegerDigits[ # ], IntegerDigits[ #^3]]] == 10 &]
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Sep 14 2006
|
