%I #6 Jun 26 2018 19:05:19
%S 1,4,17,11,30,40,55,50,31,89,62,103,85,115,114,118,111,157,135,160,
%T 174,177,159,172,215,208,247,241,266,273,307,243,201,245,297,282,264,
%U 322,320,391,363,428,377,416,413,359,393,414,479,457,422
%N Smallest k such that 8^k has exactly n 9's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[8^k], 9] != 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
|