%I A063602
%S A063602 1,9,6,10,45,38,33,50,58,78,76,75,64,82,123,148,160,154,156,157,166,
%T A063602 204,186,215,234,250,257,275,202,295,302,232,330,313,351,334,395,364,
%U A063602 412,391,417,422,427,458,481,388,457,462,558,519
%N A063602 Smallest power of 6 having just n 6's in its decimal representation.
%t A063602 a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 6] != n, k++ ]; a 
               = Append[a, k], {n, 1, 50} ]; a
%Y A063602 Sequence in context: A146486 A137907 A070164 this_sequence A166520 A102648 
               A040074
%Y A063602 Adjacent sequences: A063599 A063600 A063601 this_sequence A063603 A063604 
               A063605
%K A063602 base,nonn
%O A063602 1,2
%A A063602 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001