Função cumulativa recursiva

Eu preciso escrever uma função de soma cumulativa em R, mas eu tenho batido em uma parede de tijolos. A função tem a seguinte estrutura:

a*x1
a*x2 + a^2*x1
a*x3 + a^2*x2 + a^3*x1
a*x4 + a^2*x3 + a^3*x2 + a^4*x1

E assim por diante. O cumsum parece não funcionar nesse tipo de função. Existe alguma maneira que isso possa ser implementado em R?