[go: up one dir, main page]

login
A063588
Smallest k such that 5^k has exactly n 3's in its decimal representation.
0
1, 5, 17, 25, 32, 48, 35, 90, 84, 81, 128, 101, 140, 120, 159, 145, 179, 154, 181, 104, 224, 234, 226, 246, 261, 228, 315, 323, 316, 320, 259, 303, 359, 325, 377, 317, 369, 415, 457, 439, 476, 473, 493, 470, 513, 548, 508, 472, 529, 533, 601
OFFSET
0,2
MATHEMATICA
a = {}; Do[k = 1; While[ Count[ IntegerDigits[5^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
CROSSREFS
Sequence in context: A230527 A242178 A343594 * A307286 A339955 A117635
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
Name corrected by Jon E. Schoenfield, Jun 26 2018
STATUS
approved