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

1, 4, 18, 25, 44, 32, 47, 69, 102, 118, 98, 163, 201, 139, 225, 230, 209, 271, 280, 318, 287, 304, 290, 331, 369, 361, 429, 375, 446, 378, 533, 513, 504, 410, 551, 481, 571, 635, 568, 580, 610, 648, 713, 704, 720, 753, 689, 923, 829, 806, 839

Offset

0,2

Links

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

Mathematica

a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
With[{t=3^Range[1000]}, Table[Position[t, _?(DigitCount[#, 10, 8]==n&), 1, 1], {n, 0, 50}]]//Flatten (* Harvey P. Dale, Jul 10 2017 *)

Crossrefs

Sequence in context: A057342 A192195 A099565 * A323848 A358375 A166749

Adjacent sequences: A063560 A063561 A063562 * A063564 A063565 A063566

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 10 2001

Extensions

Name corrected by Jon E. Schoenfield, Jun 26 2018

Status

approved