%I A063558
%S A063558 2,1,13,21,29,65,66,56,69,114,101,112,137,165,172,219,233,185,252,299,
%T A063558 268,261,322,394,310,345,435,329,405,500,498,427,395,517,586,555,548,
%U A063558 590,596,574,578,531,717,661,689,732,669,789,718,875,834
%N A063558 Smallest power of 3 having just n 3's in its decimal representation.
%t A063558 a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 3] != n, k++ ]; a 
               = Append[a, k], {n, 0, 50} ]; a
%Y A063558 Sequence in context: A032001 A118679 A087451 this_sequence A013020 A012906 
               A013017
%Y A063558 Adjacent sequences: A063555 A063556 A063557 this_sequence A063559 A063560 
               A063561
%K A063558 base,nonn
%O A063558 0,1
%A A063558 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001