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,3

Links

Table of n, a(n) for n=0..39.

Mathematica

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

Crossrefs

Sequence in context: A105140 A107018 A247868 * A024585 A190482 A128783

Adjacent sequences: A048789 A048790 A048791 * A048793 A048794 A048795

Keyword

base,nonn

Author

Robert G. Wilson v, Jun 23 2001

Status

approved