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

1, 6, 20, 18, 33, 48, 47, 52, 70, 55, 103, 92, 102, 138, 121, 128, 161, 123, 151, 183, 190, 193, 215, 216, 199, 227, 290, 277, 243, 274, 268, 333, 270, 298, 372, 365, 341, 332, 359, 406, 465, 475, 481, 442, 512, 453, 468, 541, 523, 563, 525

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 5] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
Join[{1}, With[{c6=DigitCount[#, 10, 5]&/@(6^Range[600])}, Flatten[Table[ Position[ c6, n, 1, 1], {n, 51}]]]] (* Harvey P. Dale, May 17 2018 *)

Crossrefs

Sequence in context: A321328 A007253 A096897 * A222604 A112809 A289659

Adjacent sequences: A063598 A063599 A063600 * A063602 A063603 A063604

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved