Generating Numbers With Certain Distribution in R

I think your routine need a little fix

x <- rlnorm(1e6,meanlog=1,sdlog=1) ## pick any parameters you like
y <- round((x-min(x)/diff(range(x)))*199999+1)

What you think?