Click here for the answer

Solve[compound[P,R,n] == 2*P, n]