0,1
a = {}; Do[k = 1; While[ StringPosition[ ToString[5^k], ToString[n]] == {}, k++ ]; a = Append[a, k], {n, 0, 60} ]; a
Essentially the same as A062522.
Sequence in context: A056030 A104842 A119277 this_sequence A100668 A100863 A021986
Adjacent sequences: A063565 A063566 A063567 this_sequence A063569 A063570 A063571
base,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 10 2001
Search completed in 0.002 seconds