OFFSET
0,1
LINKS
Robert Israel, Table of n, a(n) for n = 0..9999
EXAMPLE
a(0)=33 because 33^(1/5) = 2.0123466... and 0123466... starts with 0, and there is no k < 33 whose 5th root has this property.
a(1)=2 because 2^(1/5) = 1.1486983... and 1486983... starts with 1, and there is no k < 2 whose 5th root has this property.
MAPLE
d:= 2: # for a(0) .. a(10^d-1)
V:= Array(0..10^d-1): V[0]:= 33: count:= 1:
for x from 2 while count < 10^d do
v:= floor(10^d*x^(1/5)) mod 10^d;
if v < 10^(d-1) then next fi;
for i from 1 to d do
w:= floor(v/10^(d-i));
if V[w] = 0 then V[w]:= x; count:= count+1; fi
od
od:
convert(V, list); # Robert Israel, Jun 20 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1998
EXTENSIONS
Edited by Robert Israel, Jun 21 2023
STATUS
approved