OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..3373
M. F. Hasler, Zeroless powers. OEIS Wiki, March 2014
MAPLE
N:= 100: # to get a(0)..a(N)
A:= Array(0..N, -1):
p:= 1: A[0]:= 0:
count:= 1:
for k from 1 while count <= N do
p:= 5*p;
m:= numboccur(0, convert(p, base, 10));
if m <= N and A[m] < 0 then A[m]:= k; count:= count+1;
od:
convert(A, list); # Robert Israel, Dec 20 2018
MATHEMATICA
a = {}; Do[k = 0; While[ Count[ IntegerDigits[5^k], 0] != n, k++ ]; a = Append[a, k], {n, 0, 50} ]; a
PROG
(PARI) A063585(n)=for(k=n, oo, #select(d->!d, digits(5^k))==n&&return(k)) \\ M. F. Hasler, Jun 14 2018
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Aug 10 2001
EXTENSIONS
STATUS
approved