%I #5 Jun 26 2018 19:22:46
%S 1,9,8,19,51,48,75,34,97,130,144,194,138,183,233,208,250,272,231,294,
%T 288,275,305,322,354,368,355,382,379,386,513,505,529,534,579,539,553,
%U 645,609,620,738,630,730,619,798,774,766,828,746,816,868
%N Smallest k such that 3^k has exactly n 6's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 6] != 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
|