Solve[2 Pi a==Exp[-2 r](2r+1),r]