A063588 Smallest k such that 5^k has exactly n 3's in its decimal representation.

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

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[5^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{tbl=Table[{n, DigitCount[5^n, 10, 3]}, {n, 700}]}, Table[SelectFirst[tbl, #[[2]]==k&], {k, 0, 50}]][[;; , 1]] (* Harvey P. Dale, Jan 28 2025 *)

Crossrefs

Sequence in context: A230527 A242178 A343594 * A307286 A339955 A117635

Adjacent sequences: A063585 A063586 A063587 * A063589 A063590 A063591

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved