cp's OEIS Frontend

A119519 The first 10 digits of the fourth root of n contain the digits 0-9.

%I A119519 #15 May 19 2019 20:22:04
%S A119519 6654,14311,14422,14505,24364,25646,33421,35833,36759,36870,37112,
%T A119519 37628,41108,42606,45886,46453,46729,47183,49698,50064,56023,66932,
%U A119519 69520,70236,70367,71443,71898,73005,73676,74488,74972,75464,78872,82066
%N A119519 The first 10 digits of the fourth root of n contain the digits 0-9.
%e A119519 n=6654. n(1/4) = 9.031724865..., so 6654 is the first entry.
%t A119519 okQ[n_]:=With[{ptrn=Table[1,{10}]},Module[{rd10=RealDigits[Power[n, (4)^-1],10,10][[1]]},DigitCount[FromDigits[rd10]]==ptrn]]; Select[Range[90000],okQ]  (* _Harvey P. Dale_, Jan 21 2011 *)
%o A119519 (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",")); ) }
%Y A119519 Cf. A113507.
%K A119519 base,easy,nonn
%O A119519 1,1
%A A119519 _Cino Hilliard_, May 27 2006