%I A063556
%S A063556 1,4,11,17,32,42,85,55,84,100,115,120,162,128,202,111,214,267,260,316,
%T A063556 321,319,295,307,298,331,384,404,451,454,490,488,449,521,528,511,575,
%U A063556 617,584,604,590,628,663,619,668,807,776,812,718,788,856
%N A063556 Smallest power of 3 having just n 1's in its decimal representation.
%t A063556 a = {}; Do[k = 1; While[ Count[ IntegerDigits[3^k], 1] != n, k++ ]; a 
               = Append[a, k], {n, 0, 50} ]; a
%Y A063556 Sequence in context: A003146 A063237 A026381 this_sequence A133725 A050395 
               A059771
%Y A063556 Adjacent sequences: A063553 A063554 A063555 this_sequence A063557 A063558 
               A063559
%K A063556 base,nonn
%O A063556 0,2
%A A063556 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001