Maximize[{(101/x)^x,x>0}]