A113507 Numbers whose square root in base 10 starts with 10 distinct digits.
1362, 1843, 2540, 4280, 5507, 6896, 14601, 15143, 17547, 18393, 20337, 22710, 23560, 25887, 27487, 30728, 32286, 32615, 33144, 34499, 37194, 43422, 46075, 46167, 47293, 47497, 56125, 58465, 58495, 60552, 60911, 62069, 62091, 65743
Offset: 1
Examples
sqrt(1362) = 36.90528417...
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..400
Programs
-
Mathematica
Do[If[Union@Take[RealDigits[s = Sqrt[k], 10, 20][[1]], 10] == Range[0, 9], Print[{k, N[s, 15]}]], {k, 10^5}] Select[Range[75000],Sort[RealDigits[Sqrt[#],10,10][[1]]]==Range[0,9]&] (* Harvey P. Dale, Dec 19 2015 *)
Extensions
More terms from Robert G. Wilson v, Jan 12 2006