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: A104842 A119277 A154014 this_sequence A100668 A154158 A100863
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