%I #6 Jun 26 2018 19:18:37
%S 1,3,8,18,22,38,45,67,58,56,86,84,96,134,166,103,112,99,178,126,187,
%T 203,184,269,208,258,229,267,233,307,249,346,337,318,361,428,404,418,
%U 310,321,406,333,422,447,425,451,454,466,508,441,522
%N Smallest k such that 6^k has exactly n 1's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 1] != 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