login
A063591
Smallest k such that 5^k has exactly n 6's in its decimal representation.
0
1, 4, 10, 18, 38, 32, 49, 51, 86, 84, 83, 105, 144, 138, 103, 160, 146, 170, 206, 229, 180, 198, 225, 227, 237, 292, 256, 302, 326, 324, 260, 316, 352, 362, 388, 419, 448, 386, 431, 497, 494, 414, 416, 490, 482, 473, 508, 562, 547, 582, 469
OFFSET
0,2
MATHEMATICA
a = {}; Do[k = 1; While[ Count[ IntegerDigits[5^k], 6] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
CROSSREFS
Sequence in context: A217745 A213949 A009913 * A009912 A318070 A073262
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved