%I A063571
%S A063571 4,3,3,5,2,3,2,5,1,4,10,14,3,9,6,7,8,9,10,12,7,6,17,21,10,17,6,5,9,20,
%T A063571 26,25,5,21,9,15,12,10,13,14,4,10,9,14,6,11,14,12,17,13,18,3,7,29,13,
%U A063571 13,16,25,11,11,20
%N A063571 Smallest power of 8 having n in its decimal representation.
%C A063571 Variant of A062525 allowing only exponents larger than zero. [From R. 
               J. Mathar (mathar(AT)strw.leidenuniv.nl), Dec 15 2008]
%t A063571 a = {}; Do[k = 1; While[ StringPosition[ ToString[8^k], ToString[n] ] 
               == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
%Y A063571 Sequence in context: A129344 A048853 A011762 this_sequence A005589 A052360 
               A154913
%Y A063571 Adjacent sequences: A063568 A063569 A063570 this_sequence A063572 A063573 
               A063574
%K A063571 base,nonn
%O A063571 0,1
%A A063571 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001