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

%I #6 Mar 14 2020 05:54:15

%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