Necesito escribir una función de suma acumulativa en R pero he estado golpeando una pared de ladrillos. La función tiene la siguiente estructura:

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

Y así. El cumsum no parece funcionar para este tipo de función. ¿Hay alguna forma en que esto podría implementarse en R?