%I #9 Jun 26 2018 19:17:51
%S 1,2,12,22,30,24,40,61,56,84,87,93,115,114,118,170,139,129,180,165,
%T 206,197,209,172,263,258,227,293,303,327,283,331,299,329,315,342,353,
%U 346,426,439,424,448,464,412,472,435,437,512,463,498,502
%N Smallest k such that 6^k has exactly n 3's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[6^k], 3] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%t With[{p6=6^Range[600]},Flatten[IntegerExponent[#,6]&/@Table[Select[ p6, DigitCount[#,10,3]==n&,1],{n,0,50}]]] (* _Harvey P. Dale_, May 21 2012 *)
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|