|
|
A063597
|
|
Smallest k such that 6^k has exactly n 1's in its decimal representation.
|
|
0
|
|
|
1, 3, 8, 18, 22, 38, 45, 67, 58, 56, 86, 84, 96, 134, 166, 103, 112, 99, 178, 126, 187, 203, 184, 269, 208, 258, 229, 267, 233, 307, 249, 346, 337, 318, 361, 428, 404, 418, 310, 321, 406, 333, 422, 447, 425, 451, 454, 466, 508, 441, 522
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 1] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|