login
A079656
Cubes using only the digits 0, 3, 6, 8 and 9.
1
0, 8, 8000, 3869893, 8000000, 3869893000, 3996969003, 8000000000, 99060039883, 339630096833, 630966396033, 688933306368, 869889903336, 3869893000000, 3996969003000, 8000000000000, 63836938680696, 99060039883000, 339630096833000, 630966396033000, 688933306368000
OFFSET
1,2
MATHEMATICA
Do[ If[ Union[ Join[ IntegerDigits[n^3], {0, 3, 6, 8, 9}]] == {0, 3, 6, 8, 9}, Print[n^3]], {n, 0, 50000}]
CROSSREFS
Sequence in context: A115442 A216936 A090494 * A114773 A057107 A320864
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Jan 23 2003
EXTENSIONS
More terms from Robert G. Wilson v, Jan 24 2003
STATUS
approved