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

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

Mathematica

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

Crossrefs

Cf. A030175.

Sequence in context: A136831 A204009 A371047 * A234472 A139707 A139709

Adjacent sequences: A043678 A043679 A043680 * A043682 A043683 A043684

Keyword

nonn,base

Author

Robert G. Wilson v, Jun 23 2001

Extensions

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

Status

approved