%I A063599
%S A063599 1,2,12,22,30,24,40,61,56,84,87,93,115,114,118,170,139,129,180,165,206,
%T A063599 197,209,172,263,258,227,293,303,327,283,331,299,329,315,342,353,346,
%U A063599 426,439,424,448,464,412,472,435,437,512,463,498,502
%N A063599 Smallest power of 6 having just n 3's in its decimal representation.
%t A063599 a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 3] != n, k++ ]; a 
               = Append[a, k], {n, 0, 50} ]; a
%Y A063599 Sequence in context: A053896 A155890 A077410 this_sequence A163479 A017293 
               A120672
%Y A063599 Adjacent sequences: A063596 A063597 A063598 this_sequence A063600 A063601 
               A063602
%K A063599 base,nonn
%O A063599 0,2
%A A063599 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001