login
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
OFFSET
0,2
MATHEMATICA
a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 6] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
CROSSREFS
Sequence in context: A309657 A296615 A340446 * A068823 A264301 A251091
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved