%I #12 Mar 14 2017 00:02:36
%S 587,9630,9971,11056,11211,15109,18724,18883,19290,28780,31182,33713,
%T 35788,38919,39527,41879,44171,45645,46335,46746,48721,51520,58890,
%U 172189,173487,173509,174370,174442,175513,177317,179239,179415,179429
%N Numbers whose natural logarithm, in base 10, starts with 10 distinct digits.
%H G. C. Greubel, <a href="/A113509/b113509.txt">Table of n, a(n) for n = 1..1200</a>
%e log(587)= 6.375024819...
%t Do[If[Union@Take[RealDigits[s = Log[k], 10, 20][[1]], 10] == Range[0, 9], Print[{k, N[s, 15]}]], {k, 10^6}]
%t With[{c=Range[0,9]},Select[Range[180000],Sort[RealDigits[Log[#],10,10][[1]]]==c&]] (* _Harvey P. Dale_, Apr 19 2012 *)
%K base,easy,nonn
%O 1,1
%A _Giovanni Resta_, Jan 11 2006
%E More terms from _Robert G. Wilson v_, Jan 12 2006