%I #6 Jun 26 2018 19:03:43
%S 1,7,16,11,59,43,39,44,80,117,91,75,97,114,124,139,194,171,149,243,
%T 188,242,240,248,236,283,297,334,329,273,293,389,312,322,387,436,455,
%U 443,417,427,520,498,474,448,423,480,539,569,557,548,537
%N Smallest k such that 5^k has exactly n 8's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[5^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