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

Author

Shyam Sunder Gupta, Jan 23 2003

Keywords

• base
• nonn

Crossrefs

Cf. A072960, A074100.

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