login
Smallest k such that 6^k has exactly n 1's in its decimal representation.
0

%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