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

0, 1, 7, 10, 11, 68, 70, 100, 101, 110, 324, 680, 700, 1000, 1001, 1010, 1100, 3240, 6800, 7000, 7618, 10000, 10001, 10010, 10100, 11000, 31177, 32400, 52308, 68000, 69314, 70000, 76180, 100000, 100001, 100010, 100100, 101000, 110000, 311770

Offset: 0

Author

Robert G. Wilson v, Jun 23 2001

Keywords

• base
• nonn

Programs

Mathematica

Do[ If[ Union[ IntegerDigits[n^3]] [[ -1]] < 5, Print[n]], {n, 0, 10^6} ]