|
|
A063564
|
|
Smallest k such that 3^k has exactly n 9's in its decimal representation.
|
|
1
|
|
|
1, 2, 10, 30, 35, 36, 49, 83, 102, 121, 111, 179, 174, 203, 176, 153, 200, 234, 270, 277, 258, 220, 380, 278, 374, 323, 459, 445, 417, 507, 528, 467, 602, 535, 609, 605, 570, 571, 582, 599, 600, 620, 768, 702, 771, 724, 719, 733, 797, 870, 872
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 9] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|