|
| |
|
|
A119519
|
|
The first 10 digits of the fourth root of n contain the digits 0-9.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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] [From Harvey P. Dale, Jan. 21, 2011]
|
|
|
PROG
| (PARI) \The 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 * A131645 A186086 A015310
Adjacent sequences: A119516 A119517 A119518 * A119520 A119521 A119522
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), May 27 2006
|
| |
|
|
