Plot[(1/(1+30 0.95^t)),{t,0,200}]

D[(1/(1+30 0.95^t)),t]

Plot[((1.5387988316265173` ((0.95`)^t))/(((1+30 ((0.95`)^t)))^2)),{t,0,200}]

Solve[D[(1/(1+30 0.95^t)),{t,2}]==0]

Limit[(1/(1+30 2^t)),t->Infinity]

Limit[(1/(1+30 0.95^t)),t->Infinity]