%I #6 Jun 26 2018 19:04:26
%S 1,9,6,10,45,38,33,50,58,78,76,75,64,82,123,148,160,154,156,157,166,
%T 204,186,215,234,250,257,275,202,295,302,232,330,313,351,334,395,364,
%U 412,391,417,422,427,458,481,388,457,462,558,519
%N Smallest k such that 6^k has exactly n 6's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 6] != n, k++ ]; a = Append[a, k], {n, 1, 50} ]; a
%K base,nonn
%O 1,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|