login
When cubed gives number composed just of the digits 0, 1, 2, 3, 4.
1

%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