RSolve[ {x[n+1] == x[n]^2 e^(x[n]), x[0]==1/3}, x[n], n]