>>723
そんな微妙な関数はないんじゃない？Maximaで組んでみた
a:[]$for i:1 thru 20 do begin([t:random(9900)+100],if 500<=t and t<=3000 then a:cons(t,a));a;