OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1200
EXAMPLE
log(587)= 6.375024819...
MATHEMATICA
Do[If[Union@Take[RealDigits[s = Log[k], 10, 20][[1]], 10] == Range[0, 9], Print[{k, N[s, 15]}]], {k, 10^6}]
With[{c=Range[0, 9]}, Select[Range[180000], Sort[RealDigits[Log[#], 10, 10][[1]]]==c&]] (* Harvey P. Dale, Apr 19 2012 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Resta, Jan 11 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 12 2006
STATUS
approved