Plot[2×Exp[Log[3/2]×x/13],{x,0,150}]

Plot[4×Exp[Log[5/4]×x/5],{x,0,80}]

Plot[5×Exp[Log[6/5]×x/5],{x,0,100}]

Solve[2×Exp[Log[3/2]×x/13.]==100,x]

Solve[4×Exp[Log[5/4]×x/5.]==100,x]

Solve[5×Exp[Log[6/5]×x/5.]==100,x]