OFFSET
2,1
EXAMPLE
951 has no zeros and 951^10 has ten zeros (605069371210073000039238122001). This is the least positive integer with this property.
MAPLE
N:= 30: # to get terms up to a(N)
for n from 2 to N do
for k from 1 do
if numboccur(0, convert(k, base, 10)) = 0 and
numboccur(0, convert(k^n, base, 10)) = n then
A[n]:= k;
break
fi
od
od:
seq(A[n], n=2..N); # Robert Israel, Aug 05 2014
PROG
(Python)
def GetNums(x):
..for n in range(10**6):
....if str(n).count("0") == 0:
......if str(n**x).count("0") == x:
........return n
x = 2
while x < 50:
..print(GetNums(x), end=', ')
..x += 1
(PARI) okxn(x, n) = {ok = 0; if (vecmin (digits(x)), dxn = digits(x^n); ok = (sum(i=1, #dxn, dxn[i] == 0) == n); ); ok; }
a(n) = {x=1; while (! okxn(x, n), x++); x; } \\ Michel Marcus, Dec 23 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Derek Orr, Dec 16 2013
EXTENSIONS
More terms from Michel Marcus, Dec 23 2013
Definition edited by Robert Israel, Aug 05 2014
Definition simplified by Derek Orr, Mar 23 2015
STATUS
approved