%I A113507
%S A113507 1362,1843,2540,4280,5507,6896,14601,15143,17547,18393,20337,22710,
%T A113507 23560,25887,27487,30728,32286,32615,33144,34499,37194,43422,46075,
%U A113507 46167,47293,47497,56125,58465,58495,60552,60911,62069,62091,65743
%N A113507 Numbers whose square root in base 10 starts with 10 distinct digits.
%e A113507 sqrt(1362) = 36.90528417...
%t A113507 Do[If[Union@Take[RealDigits[s = Sqrt[k], 10, 20][[1]], 10] == Range[0, 
               9], Print[{k, N[s, 15]}]], {k, 10^5}]
%Y A113507 Sequence in context: A056103 A125270 A023091 this_sequence A119521 A004930 
               A004950
%Y A113507 Adjacent sequences: A113504 A113505 A113506 this_sequence A113508 A113509 
               A113510
%K A113507 base,easy,nonn
%O A113507 0,1
%A A113507 Giovanni Resta (g.resta(AT)iit.cnr.it), Jan 11 2006
%E A113507 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 12 2006