La función accumulate
de la librería purrr
regresa todos los resultados intermedios de la reducción de un vector. En este caso sería los resultados intermedios de un productorio (como una sumatoria, pero con multiplicaciones).
Para usarla defines un vector con largo 22 y el valor 500. No importa que se repita, solo considerará al primer valor y utilizará al largo para limitar la salida. Con accumulate
le indicas que lo multiplique por 1.06 a lo largo de todos el vector. Automáticamente se aplica de manera recursiva al resultado de la operación anterior.
library(tidyverse)
rep(500, 22) -> x #Vector de largo 22
accumulate(x, ~.x*1.06) #Hace automáticamente la función recursiva.
[1] 500.0000 530.0000 561.8000 595.5080 631.2385 669.1128 709.2596 751.8151 796.9240 844.7395
[11] 895.4238 949.1493 1006.0982 1066.4641 1130.4520 1198.2791 1270.1758 1346.3864 1427.1696 1512.7998
[21] 1603.5677 1699.7818
Se podría hacer con bucles y quizás con una función recursiva explícita, pero esta es muy simple.