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

6654, 14311, 14422, 14505, 24364, 25646, 33421, 35833, 36759, 36870, 37112, 37628, 41108, 42606, 45886, 46453, 46729, 47183, 49698, 50064, 56023, 66932, 69520, 70236, 70367, 71443, 71898, 73005, 73676, 74488, 74972, 75464, 78872, 82066

Offset

1,1

Links

Table of n, a(n) for n=1..34.

Example

n=6654. n(1/4) = 9.031724865..., so 6654 is the first entry.

Mathematica

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 *)

Prog

(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", ")); ) }

Crossrefs

Cf. A113507.

Sequence in context: A048268 A043634 A060792 * A233661 A131645 A186086

Adjacent sequences: A119516 A119517 A119518 * A119520 A119521 A119522

Keyword

base,easy,nonn

Author

Cino Hilliard, May 27 2006

Status

approved