Summation without loops

Question

I have following double summation: ∑10,i=1 ∑i,j=1 (i^5/(10+j^i))

I am quite lost with this exercise, I tried the following code but I it returns an error although giving

Answer 1

everything in r is vectorized:

i <- seq(10)
j <- sequence(i)
i_use <- rep(i,i)

sum(i_use^5/(10 + j^i_use))
[1] 20835.22