login
A043681
When cubed gives number composed just of the digits 0, 1, 2, 3.
4
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
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 A376450 A139707
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