plot Table[(sin(n+100))^(n+100),{n,1,200,1}]