%I #6 Jun 26 2018 19:07:22
%S 1,3,15,12,28,26,30,39,70,50,54,82,93,106,105,80,110,121,130,135,156,
%T 175,173,183,174,211,194,264,158,216,285,251,306,262,308,298,263,322,
%U 346,323,354,276,375,380,419,350,404,432,384,465,403
%N Smallest k such that 9^k has exactly n 2's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[9^k], 2] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
%K base,nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 10 2001
%E Name corrected by _Jon E. Schoenfield_, Jun 26 2018
|