|
|
A036534
|
|
Smallest cube containing exactly n 7's.
|
|
7
|
|
|
0, 27, 17576, 571787, 5177717, 7797729087, 25750777177, 7707245470777, 744736797077707, 17373777757776999, 77777383297757779, 77077787864771842777, 2717772770751727979277, 74677779777959671778577, 787773477172377877676776, 77227778717777797207914717
(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], 7];
If[nsmall[[n0 + 1]] > i^3, nsmall[[n0 + 1]] = i^3]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|