%I #7 Mar 17 2019 21:14:31
%S 0,8,8000,3869893,8000000,3869893000,3996969003,8000000000,
%T 99060039883,339630096833,630966396033,688933306368,869889903336,
%U 3869893000000,3996969003000,8000000000000,63836938680696,99060039883000,339630096833000,630966396033000,688933306368000
%N Cubes using only the digits 0, 3, 6, 8 and 9.
%t Do[ If[ Union[ Join[ IntegerDigits[n^3], {0, 3, 6, 8, 9}]] == {0, 3, 6, 8, 9}, Print[n^3]], {n, 0, 50000}]
%Y Cf. A072960, A074100.
%K base,nonn
%O 1,2
%A _Shyam Sunder Gupta_, Jan 23 2003
%E More terms from _Robert G. Wilson v_, Jan 24 2003