|
|
A063599
|
|
Smallest k such that 6^k has exactly n 3's in its decimal representation.
|
|
0
|
|
|
1, 2, 12, 22, 30, 24, 40, 61, 56, 84, 87, 93, 115, 114, 118, 170, 139, 129, 180, 165, 206, 197, 209, 172, 263, 258, 227, 293, 303, 327, 283, 331, 299, 329, 315, 342, 353, 346, 426, 439, 424, 448, 464, 412, 472, 435, 437, 512, 463, 498, 502
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{p6=6^Range[600]}, Flatten[IntegerExponent[#, 6]&/@Table[Select[ p6, DigitCount[#, 10, 3]==n&, 1], {n, 0, 50}]]] (* Harvey P. Dale, May 21 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|