|
%I #10 Dec 19 2015 13:44:40
%S 1362,1843,2540,4280,5507,6896,14601,15143,17547,18393,20337,22710,
%T 23560,25887,27487,30728,32286,32615,33144,34499,37194,43422,46075,
%U 46167,47293,47497,56125,58465,58495,60552,60911,62069,62091,65743
%N Numbers whose square root in base 10 starts with 10 distinct digits.
%H Harvey P. Dale, <a href="/A113507/b113507.txt">Table of n, a(n) for n = 1..400</a>
%e sqrt(1362) = 36.90528417...
%t Do[If[Union@Take[RealDigits[s = Sqrt[k], 10, 20][[1]], 10] == Range[0, 9], Print[{k, N[s, 15]}]], {k, 10^5}]
%t Select[Range[75000],Sort[RealDigits[Sqrt[#],10,10][[1]]]==Range[0,9]&] (* _Harvey P. Dale_, Dec 19 2015 *)
%K base,easy,nonn
%O 1,1
%A _Giovanni Resta_, Jan 11 2006
%E More terms from _Robert G. Wilson v_, Jan 12 2006
|
