%I #6 Jun 26 2018 19:12:50
%S 1,12,15,25,24,40,29,53,51,84,89,99,126,107,117,141,153,167,187,171,
%T 149,232,212,242,238,257,254,248,267,272,303,308,378,340,309,387,352,
%U 382,396,397,392,438,454,472,439,436,484,420,492,467,544
%N Smallest k such that 6^k has exactly n 8's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018