%I #4 Mar 30 2012 17:30:20
%S 0,1,7,10,11,68,70,100,101,110,324,680,700,1000,1001,1010,1100,3240,
%T 6800,7000,7618,10000,10001,10010,10100,11000,31177,32400,52308,68000,
%U 69314,70000,76180,100000,100001,100010,100100,101000,110000,311770
%N When cubed gives number composed just of the digits 0, 1, 2, 3, 4.
%t Do[ If[ Union[ IntegerDigits[n^3]] [[ -1]] < 5, Print[n]], {n, 0, 10^6} ]
%K base,nonn
%O 0,3
%A _Robert G. Wilson v_, Jun 23 2001