%I
%S 0,1,10,11,100,101,110,1000,1001,1010,1100,10000,10001,10010,10100,
%T 11000,100000,100001,100010,100100,101000,110000,684917,1000000,
%U 1000001,1000010,1000100,1001000,1010000,1100000,6849170,10000000,10000001,10000010,10000100,10001000
%N When cubed gives number composed just of the digits 0, 1, 2, 3.
%C 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.
%H Giovanni Resta, <a href="/A043681/b043681.txt">Table of n, a(n) for n = 1..187</a>
%t Do[ If[ Union[ IntegerDigits[n^3]] [[ 1]] < 4, Print[n] ], {n, 0, 10^8} ]
%Y Cf. A030175.
%K nonn,base
%O 1,3
%A _Robert G. Wilson v_, Jun 23 2001
%E Offset corrected and terms a(33) and beyond added by _Giovanni Resta_, Mar 14 2020
