|
|
A036533
|
|
Smallest cube containing exactly n 6's.
|
|
7
|
|
|
0, 64, 166375, 46656, 367061696, 1676676672, 66676466375, 2646396666368, 6666963601661, 6946660616126616, 3666676156163166167, 62656677666653866496, 2674826866666660366016, 166465666639716668628669, 3656365366626065666266624, 167947668303666616666566656
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, n0 = Count[IntegerDigits[i^3], 6];
If[nsmall[[n0 + 1]] > i^3, nsmall[[n0 + 1]] = i^3]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|