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

0, 1, 10, 11, 100, 101, 110, 1000, 1001, 1010, 1100, 10000, 10001, 10010, 10100, 11000, 100000, 100001, 100010, 100100, 101000, 110000, 684917, 1000000, 1000001, 1000010, 1000100, 1001000, 1010000, 1100000, 6849170, 10000000, 10000001, 10000010, 10000100, 10001000

Offset: 1

Author

Robert G. Wilson v, Jun 23 2001

Keywords

• nonn
• base

Comments

684917*10^x (whose cube is 321302302131323213*10^3x) so far is the only entry not of the form 10^a + 10^b, a>b or simply 10^a.

Links

• Giovanni Resta, Table of n, a(n) for n = 1..187

Crossrefs

Cf. A030175.

Programs

Mathematica

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

Extensions

Offset corrected and terms a(33) and beyond added by Giovanni Resta, Mar 14 2020