OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
a = {}; Do[k = 1; While[ StringPosition[ ToString[5^k], ToString[n]] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
STATUS
approved