|
%I #7 Jun 26 2018 19:20:56
%S 1,4,18,25,44,32,47,69,102,118,98,163,201,139,225,230,209,271,280,318,
%T 287,304,290,331,369,361,429,375,446,378,533,513,504,410,551,481,571,
%U 635,568,580,610,648,713,704,720,753,689,923,829,806,839
%N Smallest k such that 3^k has exactly n 8's in its decimal representation.
%H Harvey P. Dale, <a href="/A063563/b063563.txt">Table of n, a(n) for n = 0..500</a>
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%t With[{t=3^Range[1000]},Table[Position[t,_?(DigitCount[#,10,8]==n&),1,1],{n,0,50}]]//Flatten (* _Harvey P. Dale_, Jul 10 2017 *)
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|
