|
|
A063561
|
|
Smallest k such that 3^k has exactly n 6's in its decimal representation.
|
|
0
|
|
|
1, 9, 8, 19, 51, 48, 75, 34, 97, 130, 144, 194, 138, 183, 233, 208, 250, 272, 231, 294, 288, 275, 305, 322, 354, 368, 355, 382, 379, 386, 513, 505, 529, 534, 579, 539, 553, 645, 609, 620, 738, 630, 730, 619, 798, 774, 766, 828, 746, 816, 868
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 6] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|