inversegammaregularized[Range[8001,10000],0.025]