A079656 Cubes using only the digits 0, 3, 6, 8 and 9.
0, 8, 8000, 3869893, 8000000, 3869893000, 3996969003, 8000000000, 99060039883, 339630096833, 630966396033, 688933306368, 869889903336, 3869893000000, 3996969003000, 8000000000000, 63836938680696, 99060039883000, 339630096833000, 630966396033000, 688933306368000
Offset: 1
Programs
-
Mathematica
Do[ If[ Union[ Join[ IntegerDigits[n^3], {0, 3, 6, 8, 9}]] == {0, 3, 6, 8, 9}, Print[n^3]], {n, 0, 50000}]
Extensions
More terms from Robert G. Wilson v, Jan 24 2003
Comments