begin{tikzpicture}
begin{axis}[
axis lines = left,
xlabel = $n$,
ylabel = {$p_{n}$},
]
pgfmathsetmacro{P}{520000}
pgfmathsetmacro{m}{3162.28}
pgfmathsetmacro{r}{1.0045}


addplot [
domain=1:300,
samples=300,
color=red,
]
{100 - 100*((r - 1)*(Pr^(x - 1)-m*((r^x - 1)/(r - 1)))/m};
addlegendentry{$p$}

end{axis}
end{tikzpicture}