|
%I #15 Dec 22 2020 03:20:45
%S 911,1974,2326,6236,8346,8403,9301,15317,17412,17601,20512,21914,
%T 22211,23513,25510,26192,31591,32432,36947,39194,39783,40414,43141,
%U 47511,49116,49606,51014,52604,57547,57753,61087,64023,64747,64913,64949
%N The first 10 digits of the fifth root of n contain the digits 0-9.
%e n=911. n^(1/5) = 3.907542186..., so 911 the first entry.
%t Select[Range[65000],Union[RealDigits[Surd[#,5],10,10][[1]]]==Range[ 0,9]&] (* _Harvey P. Dale_, May 27 2019 *)
%o (PARI) \\ The first 10 digits of i-th root of x contain all of the digits 0-9. rootdigits(n,i) = { local(f,x,y,a,d,s); for(x=2,n, f=[0,0,0,0,0,0,0,0,0,0]; s=0; y=(x^(1/i))*10^9; a=Vec(Str(y)); for(d=1,10, k=eval(a[d]); if(k==0,k=10); f[k]=1; ); for(j=1,10,s+=f[j]); if(s==10,print1(x",")); ) }
%K base,easy,nonn
%O 1,1
%A _Cino Hilliard_, May 27 2006
|
