|
|
A036536
|
|
Smallest cube containing exactly n 9's.
|
|
30
|
|
|
0, 729, 29791, 970299, 994011992, 997002999, 499999005953, 999700029999, 999940001199992, 999970000299999, 991023990975990999, 999997000002999999, 299243659909999996099, 999999700000029999999, 929999949497863992829999, 999100239990997599909999
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nsmall = Table[Infinity, 15];
For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 9];
If[nsmall[[n0 + 1]] > i^3, nsmall[[n0 + 1]] = i^3]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|