|
%I #5 Jun 26 2018 19:20:18
%S 1,8,26,35,40,39,71,70,33,111,109,129,161,151,213,273,246,281,304,241,
%T 293,321,312,363,364,376,444,450,474,400,561,565,494,576,544,537,556,
%U 581,637,625,689,726,538,624,725,799,744,814,727,888,819
%N Smallest k such that 3^k has exactly n 5's in its decimal representation.
%t a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 5] != 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
|
