%I #10 Jun 26 2018 19:06:01
%S 1,2,9,13,22,16,31,72,51,59,49,83,108,104,130,115,123,144,140,159,191,
%T 152,145,186,194,217,236,237,223,189,312,269,252,205,282,283,286,328,
%U 284,290,305,324,386,352,360,423,382,525,416,403,430
%N Smallest k such that 9^k has exactly n 8's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[9^k], 8] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%t Join[{1},Flatten[With[{p9=DigitCount[#,10,8]&/@(9^Range[0,600])}, Table[ Position[ p9,n,{1},1],{n,50}]]]-1] (* _Harvey P. Dale_, Apr 23 2014 *)
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|