|
%I #10 Aug 05 2019 11:52:24
%S 8,3,2,5,11,1,4,7,7,8,14,23,3,30,12,6,20,15,22,9,13,33,13,22,12,2,18,
%T 37,11,17,15,5,19,35,19,14,20,21,18,8,12,12,37,20,12,17,18,21,11,26,
%U 23,14,16,9,30,23,6,15,16,24,24
%N 5^a(n) is the smallest positive power of 5 having n in its decimal representation.
%H Harvey P. Dale, <a href="/A063568/b063568.txt">Table of n, a(n) for n = 0..1000</a>
%t a = {}; Do[k = 1; While[ StringPosition[ ToString[5^k], ToString[n]] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
%t sp5[n_]:=Module[{k=1,idn=IntegerDigits[n]},While[SequenceCount[ IntegerDigits[ 5^k], idn] == 0,k++];k]; Array[sp5,70,0] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 05 2019 *)
%Y Essentially the same as A062522.
%K base,nonn
%O 0,1
%A _Robert G. Wilson v_, Aug 10 2001
|
