|
%I #6 Jun 26 2018 19:04:41
%S 2,1,11,17,13,38,57,47,55,67,49,78,71,89,131,113,114,141,153,143,171,
%T 169,213,142,179,214,232,236,242,268,287,256,241,278,393,296,324,313,
%U 369,310,319,387,350,366,417,464,297,397,443,477,410
%N Smallest k such that 8^k has exactly n 8's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[8^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%K base,nonn
%O 0,1
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|
