login
A063605
Smallest k such that 6^k has exactly n 9's in its decimal representation.
0
1, 4, 7, 19, 27, 32, 39, 53, 77, 92, 104, 91, 90, 120, 122, 147, 146, 141, 191, 204, 199, 246, 280, 249, 200, 251, 294, 188, 272, 276, 327, 282, 307, 341, 397, 339, 319, 401, 384, 382, 354, 306, 467, 412, 478, 493, 456, 463, 497, 576, 524
OFFSET
0,2
MATHEMATICA
a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 9] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
CROSSREFS
Sequence in context: A032723 A231374 A173017 * A024824 A164265 A174465
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved